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Preface 



The folks from Pennsylvania have given the C-64 a worthy successor, the Commodore 
128. Ignore the snobs who look at the low price and laugh. It's got great graphics and 
sound chips, an elegant memory management system, a sophisticated BASIC interpreter, 
perfect C-64 emulation, a well designed keyboard, powerful CP/M capabilities, and plenty 
of hooks for imaginative programmers. The hardware's there; now it's up to all you 
clever coders to push the 128 to its limits and beyond. My aim in this book is to give 
you a few tools that will ease the journey. 

This book will show you some sophisticated C-128 graphics and sound program- 
ming techniques. It's packed with clear explanations and obsessively commented pro- 
grams. The programs are written in BASIC 7.0 and 6502 assembly language. I've hacked 
away on the 128 for over a year now, and made a number of interesting discoveries. 
This book contains many of them. 

Many wonderful people helped me get this information out to you. The book would 
not be here without their kind assistance. I'd like to acknowledge a few of them here; 
the rest know who they are. Bruce Hammond and the Starpoint Software crew let me 
use their 128 for a couple of months that turned into ten, and sweetened the deal with 
software, shared enthusiasm, and gallons of diet soda. Roger Wagner and Glen Bredon 
trusted me with a prepublication copy of Glen's rock-solid Merlin 128 assembler. Dan 
Weston and Leslie Kay kept the flame burning. Diane Le Bold and Jim Gracely of Com- 
modore went out of their way to provide useful system documentation on short notice. 
Larry Jackel, Ray Collins, Kevin Burton, Bob Ostrander, and Ron Powers of TAB sup- 
plied faith, beyond-infinite patience, motivational techniques, and an efficient publishing 
operation. Jim, Laura, and Saylor Flett helped keep the author warm, cool, electrified, 



VIII 



mobile, and well fed. Richard and Karen Perez supplied continued inspiration, both spiritual 
and gastro-intestinal. The Wizard came through with miraculous gifts in the pinches. Scott 
Statton appreciated the Plywood Palace. Levi Thomas shared love, intelligence, and en- 
couragement. Dana Andrews provided a home away from home. John and Anita Pryor 
appeared near the end with their remarkable energy and friendship. Ruth and Irving Krute 
came up with their usual abundance of love and support. Steve, Cynthia, Raisin, and 
Rags Fink provided last-minute philosophical discussions, archetypical accommodations, 
love, more diet soda, and genre deconstruction. Steve Jasik made a last-minute loan 
of time and equipment. The Plywood Palace cat friends maintained equilibrium and fa- 
mily values at all times. 

As I've mentioned in other books, sight and sound are two of the widest channels 
into the human heart and mind. That's why I'm partial to machines that excel in com- 
municating with those two senses. The Commodore 128 is one of them. It's a sturdy, 
sophisticated instrument. Please use it well. 



Introduction 



Welcome to a slightly different kind of programming book. It's for a slightly different kind 
of programmer working on a different kind of hardware/software system and program- 
ming a different kind of user interface. This programming relies heavily on graphics and 
sound techniques to open a broad band of communication with computer users. 

Computer hardware is getting more powerful all the time, as is the built-in systems 
software and the specific applications programs— all working towards the goal of creat- 
ing cybernetic tools that normal human beings can use. Machines like the Macintosh, 
Amiga, Atari ST, Apple IIGS, and the IBM PS/2s are leading the trend. But they all 
cost too much for the average user. The C-128 goes for a paltry couple of hundred dol- 
lars, yet has the hardware muscle to pull off a lot of modern tricks. All it needs is a 
little extra smart software magic to bring its powers to light. You're the one who'll pro- 
vide that magic, and this book will show you how. 

Books that teach this new style of programming are more difficult to organize. The 
kinds of programs that get these machines dancing are not short and sweet. The inter- 
actions with the hardware and systems software are intricate. Even brief examples 
aren't brief anymore. The growing sophistication of the systems and the programmers 
demands for more information that's better organized, with a sweep that goes from grand 
overview to tiny details— information that gives you a pile of useful tools. 

Ultimately, at the rate of current developments, that's just a couple of years— such 
sophisticated programming tutorials or toolboxes will sit on some kind of laser-storage 
medium and run interactively in multiple windows on your screen. You need all kinds 
of cross-indexed, readily-accessible information when you're solving programming tasks: 
language references; system information; system interface examples; user interface ex- 



amples; syntax and structure diagrams; pseudo-code generators; and charts, graphs and 
pictures. 

We don't all have that laser technology now. But it's time to get ready. And so 
we get to the organization of this book, which is a bit unlike most other programming 
texts— not just to be different, but because different needs demand different forms. 

The goal is to get you dancing around the C-128 system, able to solve any sound 
or graphics programming challenge that arises. Stealing from the more advanced gradu- 
ate schools, I've used a project-oriented, case study method. This lets me touch on 
both theoretical and practical issues. The book contains two major programming projects. 
I've divided each project into eight sections. Each section forms a chapter of the book. 

A project's first section discusses its Human Interface. This section tells what the 
project's programs do, and how to use them. General design and ease-of-use issues 
come to life in the specific C-128 context. 

A project's second section discusses its System Interface. This section tells about 
the project's programs' interactions with the C-128 hardware and ROMs. Some of this 
material clarifies information available elsewhere. Much of it is new, information I've 
dug out by playing with the system. 

Commodore is known for the byzantine nature of its systems, and the C-128 doesn't 
break that trend. What I do is show you how to dance around the C-128, tap-dancing 
on the good ROM stuff, jitter-bugging on the good hardware stuff, pirouetting over the 
muck. 

The third section for each project is called Program Notes. That's where I discuss 
some of the important structural features of the project's programs. I also point out some 
of the more interesting language usages. 

Fourth in each project's array of tools is a section called Stretching. This is where 
I suggest things you can do to extend the project. For example, though the 80-column 
graphics routines I supply are faster than the ROM's 40-column routines, there's still 
room for a two-to-four times speed optimization. So, in that project's Stretching sec- 
tion, I lay out some speedup techniques. 

Fifth in each project comes a section of Calling Structure Diagrams. These are pic- 
tures that show the essential architecture of the project's programs. I think you'll find 
them invaluable as you learn to put together huge, bug-free suites of programs. More 
specific detail on these diagrams can be found in Appendix B. 

The sixth project section is called Subroutine Line Starts. Each routine in a program 
is listed with the line in the source code where it begins. This'll help you find routines 
that are referred to in the other sections. 

Seventh is a section of Selected Algorithms. Using a C/Pascal-like pseudo-code, these 
algorithms show the work-horse intelligence of the project's programs, unmarred by 
the realities of BASIC 7.0 or 6502 assembly language. There's some interesting code 
here, including a Macintosh-like interrupt-driven cursor and a complete pseudo-code im- 
plementation of an optimized Bresenham line drawing algorithm. Appendix C details the 
Pinhead Pseudo-Code (PPC) that I use. If you've got a background in structured pro- 
gramming, you should find it pretty transparent. 

Finally, each project closes with its program's source code. There's a lot of it, and 
it's probably the most heavily commented you'll ever find. I can never figure out in the 
bright light of morning what the heck I cranked out in the wee hours the night before. 



So I write lots of comments, and polish the code organization for readability. There's 
a lot of code here. It's highly modular and filled with software tools you might find use- 
ful in other contexts. 

So, that's the layout of chapters for each project. You can profit from this book without 
running the programs, but I think you're better off if you run them and play with modifi- 
cations. Type in the code if you're long on time and short on money. But a couple of 
hundred pages is a lot of typing to do. You can send for disks that contain all the book's 
listings; see the order form at the back of the book. 

If you do type in the programs, you'll need an assembler. I recommend Glen Bredon's 
Merlin-128 System, available from: 

Roger Wagner Publishing 

10761 Woodside Avenue Suite E 

Post Office Box 582 

Santee, California 92071 

(619) 562-3670 

Several appendices appear at the back of the book. I suggest you read the first four 
of them now. Appendix A: Useful Conventions, describes abbreviations and jargon (min- 
imal) that I've used in the book. Appendix B: Calling Structure Diagrams, describes the 
above-mentioned diagrams and their iconography. Appendix C: Pinhead Pseudo-Code, 
documents the PPC. And Appendix D: System Interface Summary, steers you toward 
the lines of code in the book's programs that contain interesting system-related operations. 

There are a number of other appendices. They're there so I can get all these loose 
scraps of paper off my walls and desks. I hope they do the same for you. 



Chapter 1: 
Human Interface 



The heart of this first programming project is a set of 80-column graphics routines. These 
routines can be called from BASIC 7.0 or from assembly language. The assembly lan- 
guage object file Grafbc 80 contains the complete graphics package (routines and inter- 
face code). 

Prepare a disk that contains the compiled object code for G80 Install and for Grafix 
80. See Figs. 8-1 and 8-2 for their assembly language source code. 

G80 Install loads Grafix 80, adjusts the C-128 environment as necessary, and hooks 
in the new graphics routines. Working from the C-128's direct mode, not from within 
a running program, give these two commands to run G80 Install: 

BLOAD "G80 INSTALL" 
SYS 7592 

You now have six new graphics commands. They're designed to work like the 
40-column graphics commands that are part of BASIC 7.0. Take a look at the first few 
pages of the Grafix 80 program listing, Fig. 8-2, for detailed manual entries for the com- 
mands. Briefly, the commands are as follows: 

G80Box —draws outlined and filled boxes on the 80-column 

graphics screen. 
G80Color —sets the foreground and background colors for the 

80-column graphics screen. 



G80Draw —draws points, lines, and connected series of lines on 

the 80-column graphics screen. 
G80Graphic —puts the 80-column display into text or graphics 

mode, with optional screen clearing. 
G80Scat —removes the 80-column graphics commands. 

After running G80 Install, you can play with the commands from BASIC'S direct 
mode. Then you can try the BASIC 7.0 program G80 Test Suite. Figure 8-3 lists its 
source code. G80 Test Suite tests the performance of the 80-column routines. Make 
sure you've run G80 Install, as shown above. Then run G80 Test Suite with this command: 

RUN "G80 TEST SUITE" 

G80 Test Suite contains numerous examples of calling the 80-column graphics rou- 
tines from within a BASIC 7.0 program. If you want to compare the performance of the 
80-column graphics routines to the C-128's built-in 40-column BASIC 7.0 graphics com- 
mands, get rid of the 80-column package, and run the program G40 Test Suite: 

G80SCAT 

RUN "G40 TEST SUITE" 

The 80-column graphics routines can also be called from assembly language pro- 
grams. See Chapter 4: Stretching. 



Chapter 2: 
System Interface 



Remember, refer to Appendix D: System Interface Summary to locate instances of the 
following items in the program code. 

2.1 NEW COMMAND FROM ASSEMBLY LANGUAGE 

BASIC 7.0's NEW command clears out any BASIC programs currently in memory, 
and sets a number of BASIC and system variables so a new program can get going. 
It comes in quite handy when you've futzed with the system and want to clean up any 
unforeseen side effects of the futzing before letting BASIC come back into play. 

That's why it's used in G80 Install and Grafix 80. But in both instances I invoke 
the NEW command from assembly language. Surprisingly, this turns out to be a simple 
task. It's done with a JSR call to a documented vector, JmpNEW, located at address 
$AF84 in the ROM. A few preliminaries are required before the call: First, get the ma- 
chine into a bank 15 memory configuration. Next, be sure the byte just before the start 
of BASIC'S text area is zeroed (see section 2.2). Finally, set the zero flag of the 8502's 
processor to 1. 

2.2 SETTING BASIC PROGRAM TEXT STARTING ADDRESS 

Memory locations $002D-$002E, known as TxtTab, point to the start of a BASIC 
program's text. Normally, the pointer value is $1C01. G80 Install moves BASIC text 
two pages up in memory to make room for the Grafix 80 routines. It resets the TxtTab 
pointer value to $1E01 to accomplish the move. 



Notice the convention: the pointer points one byte into a memory page, and the 
byte just before this start of BASIC text must be set to 0. Don't ask me why, it's a 
convention that's hung on from the earliest days of Pet BASIC, but it must be done. 
So, in G80 Install, we set $1E00 to 0. And, when the user removes the Grafix 80 rou- 
tines, we move BASIC'S text start back down to $1C01 and zero out $1C00. 

2.3 WARM START FROM ASSEMBLY LANGUAGE 

This is another part of the magic ritual to follow after fiddling with BASIC. A warm 
start, also known as a soft reset, takes care of BASIC and system variables that a NEW 
call doesn't hit. Once again, the Commodore designers give us a nice documented entry 
point, SoftReset, located at memory location $4003 in the ROM. 

To review, here's what to do if you want to fiddle with BASIC, then bring it back 
to life safely: do the fiddling. Then get into a bank 15 memory configuration. Make sure 
there's a zero just before the start of BASIC text. Prime the processor's zero flag, set- 
ting it to 1. Call on JmpNew ($AF84). Call on SoftReset ($4003). This is what I do 
in G80 Install before loading the Grafix 80 routines, and in Grafix 80 when the user chooses 
to remove the new routines. 

2.4 KERNEL ROUTINE LOAD ($FFD5) 

The kernel's LOAD routine lets you load disk files when you're working in assem- 
bly language. There are some preliminaries. First, a call to SetBnk to tell the system 
what memory configurations to use (see Section 2.5). Second, a call to SetNam to set 
a file name and any control characters (see Section 2.7). Third, a call to SetLFS to set 
its three parameters (see Section 2.6). 

After the preliminaries, it's time to call the load routine. It requires one parameter, 
and can take up to three, all passed via the 8502's main registers. A function selector, 
passed in A, is required. If you want to truly load a file into memory, put a zero into 
the A register. If you just want to check an area of memory against a file, put a non-zero 
value into A. That tells Load to perform a verify operation. If you want to load the file 
into memory at an address different than what the file header bytes indicate, X gets 
the lo-byte of the load address, and Y gets the hi-byte. Also, the secondary address/com- 
mand set up by the preliminary SetLFS call must be zero for this relocation to take effect. 

In G80 Install, Load is used to pull in the Grafix 80 code. Study that code for a text- 
book example of this vital routine's use. 

2.5 KERNEL ROUTINE SETBNK ($FF68) 

SetBnk is used to prepare for I/O operations. It's usually called along with SetLFS 
and SetNam before calls to Load, Open, and/or Save. It sets the memory banks to 
be used with the upcoming operation. The first bank it sets indicates where data will 
be Saved from orLoaded to. This is done by passing a logical bank number (0..15) in 
the A register. It also sets the memory bank in which the file name string is living. This 
is done by passing a logical bank number (0. . 15) in the X register. After these two registers 
are set, you call on SetBnk with a JSR. 



2.6 KERNEL ROUTINE SETLFS ($FFBA) 

This kernel routine is called prior to using various kernel input/output routines. It 
sets up a file's logical file number, device number, and secondary address/command. 
This is analogous to the numbers supplied when you use BASIC 7.0's OPEN command. 
The system stores the logical file number in the system global LA ($00B8), the device 
number in the system global FA ($00BA), and the secondary address/command in the 
system global SA ($00B9). 

Prior to calling the routine with a simple JSR, the A register is loaded with the logi- 
cal file number, the X register gets the device number, and the Y register gets a secon- 
dary address/command. The logical file number will be used in subsequent operations 
to refer to the file. The device number depends on the device. For example, disk drives 
are usually numbered 8 and 9, printers are 4 and 5, etc. The secondary address/com- 
mand gives further device-specific information, and its use is optional. If not used, the 
Y register should be loaded with the value $FF (255). 

In G80 Install, SetLFS is used to prepare for a Load command. This affects the 
parameters passed to SetLFS in the A, X, and Y registers. The logical file number, 
passed in A, is set to zero, since the Load command doesn't use a logical file number. 
The device number, passed in X, works in the usual way, taking the device number of 
the disk drive we want to Load from. In G80 Install we use the device number last used, 
plucked from memory location $00BA (FA). The secondary address/command, passed 
in Y, is set to if we want the file to come in at an address different from what's stored 
in the file header. Otherwise, it's set to some non-zero value. This second option is 
used in G80 Install, since we want Grafix 80 to be loaded into its standard position. $FF 
is a nice non-zero value to use, since it's as non-zero as an 8502 gets. 



2.7 KERNEL ROUTINE SETNAM ($FFBD) 

When setting up for an input/output operation, you have the option of using a name. 
A name is used when dealing with true file devices, like disk drives and cassette recorders. 
When opening up a physical device, such as a printer or display screen, the name is 
omitted. 

SetNam must be called to tell the system what you're doing about a name. If no 
name is to be used, just load the A register with zero and call SetNam with a JSR. 
If there is a name, the call preparation is different. The kernel routine SetBnk must 
be called to tell the system which memory configuration (0..15) should be set before 
looking for the name. Then the A register gets the length of the name, the X register 
gets the lo-byte of a pointer to the name's first character, and the Y register gets the 
hi-byte of this pointer. Then SetName is called with a JSR. The name itself must be 
followed by a zero byte in memory. 

In this context 'name' is used in a general way to indicate the entire string we want 
to pass to the file system. In opening a disk file, for example, such a name may be a 
string as complex as the following, in which the actual file name is surrounded in the 
name string by various control elements: 

"@:THE FILE NAME,S,W" 



In G80 Install, we're using SetNam to prepare for a load command. The name string 
that gets set with a call to SetNam is contained in the G80 Install code. I stuff the A 
register with the length of the name string, X with the lo-byte of a pointer to the name 
string, and Y with the hi-byte of a pointer to the name string. When you examine this 
G80 Install code, be sure to note how I've used the assembler's labeling capabilities 
to make the source code independent of any changes to the name string. 

2.8 MEMORY CONFIGURATION 

From BASIC, you can configure C-128 memory with the BANK command. It's not 
much tougher to do the job from assembly language. The configuration register appears 
at $D500 when the I/O block is switched into memory, and at $FFO0 at all times. I recom- 
mend you just use the $FF00 address, since it works just as well and is always available. 

It's a good idea to restore memory to its previous state when you're done fooling 
around. Just save the current value of the configuration register, change it to a new value, 
do your fooling around, then set the configuration register back to its original value. 

The one trick is to figure out how to set up a configuration byte. Commodore mem- 
ory management has never been perfectly straightforward, and the C-128 continues that 
fine tradition. The C-128 Prg gives one of the better explanations, on pages 460-465. 
Or take a look at Fig. 2-1. If your head is a bit lazy, though, Fig. 2-2 will help. It shows 
the sixteen configuration bytes that correspond to bank setups thru 15. Of course, 
other configurations are possible; again, refer to Fig. 2-1. 

You can find a table like Fig. 2-2 right in the C-128's ROM. It runs from memory 
location $F7F0 through to $F7FF. 

There are some examples of memory configuration sprinkled throughout the vari- 
ous 80-column graphics programs. In G80 Install, I want to get into a bank 15 configura- 
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l=ram 


o=vo 

l=ram/ 
rom 



Fig. 2-1 . Each bit in a memory configuration byte determines which physical memory locations will 
show up in a particular logical address space. 
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%00111111 $3F 
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%10111111 $BF 


191 
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%11111111 $FF 


255 
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%00010110 $16 
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%01010110 $56 
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%10010110 $96 
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%1 10101 10 $D6 


214 


8 


%00101010 $2A 


42 


9 


%01 101010 $6A 
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10 


%10101010 $AA 


170 


11 


%1 1101010 $EA 


234 


12 


%00000110 $06 


6 


13 


%00001010 $0A 


10 


14 


%00000001 $01 


1 


15 


%00000000 $00 






Fig. 2-2. The C-128 has 16 standard memory configurations. For each one, this figure shows its con- 
figuration byte in binary, hexadecimal, and decimal. 



tion before fiddling around with BASIC. Bank 15 is particularly useful because it lets 
you get at the major system resources: kernel and BASIC ROMS, system globals lo- 
cated in RAM 0, and the I/O block. You can get into any memory configuration from 
assembly language by stuffing the appropriate configuration byte into the configuration 
register that always exists at $FF00. Also, note how the previous configuration is re- 
stored when you're done. In Grafix 80, 1 also fiddle with memory configurations. Right 
before carrying out one of the new 80-column graphics commands, I put the machine 
into bank 15, and restore memory to its previous configuration when the command car- 
rying out's done. Besides providing access to the major system resources mentioned 



above, bank 15 lets me get at the current BASIC program's source code and the Grafix 
80 object code. 

2.9 CRUISING THRU COMMAS IN BASIC PROGRAM TEXT 

When Grafix 80 hits one of its 80-column graphics commands, it has to look for 
parameters. As with built-in BASIC 7.0 commands, the 80-column graphics commands 
expect their parameters to be separated by commas. It's nice to have a routine that 
makes sure a required comma is in the line, then cruises past the comma and picks up 
the next element in the BASIC line. (By the way, by BASIC line element I mean a con- 
stant, variable, command token, or vital piece of punctuation— anything other than a 
space.) There's such a comma cruising routine built into the BASIC ROM, but it's un- 
documented. So I wrote a similar little gem of my own, CommaCruz, for Grafix 80. It 
calls the low-memory routine IndTxt (see Section 2.12) with an index of zero to grab 
the current byte-of-interest from the BASIC line being parsed. If it's a comma, Com- 
maCruz finishes with a jump to ChrGet, which moves the BASIC line parser along and 
grabs the first byte of the next element in the line, then returns to whoever called on 
CommaCruz. If there's no comma, CommaCruz finishes with a call to the system's er- 
ror handler, which will send out the popular "SYNTAX ERROR" message and bring 
things to a crashing halt. 

And someone told you the art of interpreter parsing was complex? Job protection 
fog, folks. 

2.10 LOW-MEMORY ROUTINE CHRGET ($0380) 

This is one of the BASIC interpreter's workhorse routines. Essentially, it moves 
BASIC'S text pointer along to the next BASIC line element, skipping through spaces, 
and grabs the element's first byte. The byte, or character, fetched is returned in the 
processor's A register. Various status flags get set, depending on what's returned in 
A: If it's a colon ($3A) or zero, both of which function as BASIC statement separators, 
the zero flag is set to 1. If it's a digit 0..9 ($30. .$39), the carry flag comes back cleared 
to 0. If it's in the range $00..$2F or $3A..$FF, the carry flag comes back set to 1. 

In Grafix 80, many of the calls to ChrGet occur when a routine is handling one of 
the new commands and needs to move along to the next element in a BASIC line. This 
is often in preparation for calling one of the higher-level BASIC parsing routines, like 
GetByt or GetWdByt (see Sections 2.26 and 2.27). In these cases, I don't even look 
at the character returned in the A register. Other times, I'm looking for specific tokens 
or punctuation marks, as in some of the parameter-fetching functions and the CommaCruz 
routine. In those cases, the call to ChrGet is followed by one or more CMP instructions 
and branches based on those comparisons. 

2.11 LOW-MEMORY ROUTINE INDTXT ($03C9) 

This is a useful routine that lets you look at parts of the BASIC line currently being 
parsed. It gives you an indexed look at the BASIC text, thus the name. As mentioned 
above, the BASIC parser maintains a pointer into the text, TxtPtr ($003D-$003E). Be- 
fore calling IndTxt, you load the Y register with an offset value. IndTxt then uses that 



offset and TxtPtr to grab a byte from the BASIC line. In Grafix 80, IndTxt is used in 
the CommaCruz routine. 

2.12 MEMORY LOCATION 13 ($000D) AKA COUNT 

This memory location is used by many of the ROM routines. In Grafix 80, it's used 
in the lEscLkDetor token crunching routine. After a successful call to the undocumented 
ROM routine FndComTxt, which looks for a given command in a pointed-to table of 
legal commands, Count holds the found command's offset in that table. In Grafix 80, 
OurComsText is the table that's used. The table offset returned in Count is used by 
ROM routines to supply a selector token for the to-be-crunched command. 

Got all that? Let me fill in a few holes. When you write a program, you enter it 
line by line. The BASIC interpreter takes each line and does some processing. One of 
the main processing tasks is changing valid BASIC commands from C-ASCII text to a 
condensed form. These condensed forms are called tokens, and may be one or two bytes 
long. Many commands transform into a one-byte token. But there are so many com- 
mands, some must be stored as two-byte tokens. The first byte of a token (the only 
byte in a one-byte token) has bit 7 set to 1. That makes it easy for the interpreter to 
find tokens, since bit 7 is easy to test (see all my previous discussions of 8502 bit-flagging), 
and no other parts of a BASIC line other than tokens have bit 7 set to 1. (Actually, charac- 
ters in a string constant can have bit 7 set to 1, but since these occur in a string, demar- 
cated with quotation marks, they're easily recognized and filtered out.) Since all the 
one-byte tokens are used up, new commands are implemented as two-byte tokens. In 
these two-byte tokens, the first byte (the one that has its high bit set to 1) is called 
the lead-in token or lead-in byte, the second byte the selector token or selector byte. 
Two lead-in tokens are used in the C-128, $FE and $CE. My 80-column graphics 
commands use $FE as the lead-in token, since a complete set of vectors exists that makes 
it easy to add commands that tokenize to $FE doubles. A given command's selector 
token is determined by taking the command's position in its table (OurComsText is the 
table in Grafix 80), and adding in some constants. Carefully check out the heavily- 
commented lEscLkDetor code to see how this all works. 



2.13 THE IERROR VECTOR 

This vector, located at memory locations $0300-$0301, allows the system, and any 
other semi-intelligent lifeform, to send BASIC error messages to the current default 
output device (usually the screen). To call it, load the X register with an error number, 
then do an indirect jump thru this vector. For example: 

LDX #SyntaxError 
JMP (IError) 

Pages 644-647 of the C-128 Prg provide a list of the error numbers, their messages, 
and what they mean. In Grafix 80, 1 use this error facility when there's been a mistake 
involving the 80-column graphics commands. 



2.14 THE IESCLK VECTOR 

This vector, located at $030C-$030D, is called by BASIC'S parser near the end of 
its token crunching activities. It's sometimes called the token crunching vector. The 
name comes from the fact it's an indirect jump providing an escape hatch during com- 
mand lookup. As mentioned before (Section 2.12), BASIC commands are converted to 
tokens after a line is entered. This vector is there so you can provide a last-resort lookup 
routine, when all the built-in command lists have been searched without success. In Grafix 
80, we point this vector to our lEscLkDetor routine, which checks for one of the new 
80-column commands. 

The system calls lEscLk as it does most vectors, with an indirect jump: 

JMP (IEscLk) 

At the time of this jump, the A register contains the character BASIC'S parser is 
looking at; that is, the first byte of the current BASIC line element of interest. If you 
write a detour for this vector, your routine can check your own command lists. When 
you're done checking, you return to the parser loop by jumping to the regular IEscLk 
handler. If you've found a valid command, you go to this exit jump with the carry flag 
cleared to 0, the X register holding a code indicating whether the command crunches 
to an $FE lead-in double-token (coded with a value of 0) or a $CE lead-in double-token 
(coded with a value of 255), and the A register holding an adjusted version of the found 
command's selector token. Check out the lEscLkDetor code for more detail on this. 
If you haven't found a valid command, you go to this exit jump with the carry flag set to 1 . 

2.15 THE IESCPR VECTOR 

This vector, located at $030E-$030F, is called by the BASIC interpreter when it's 
listing a tokenized BASIC line. The interpreter needs to convert tokens back into their 
full C-ASCII command form to list them. This process is called un-crunching, and this 
vector is sometimes called the token un-crunching vector. It's name comes from the 
fact it's an indirect jump capable of providing an escape hatch during command printing. 
It's normally set to jump right back into the BASIC interpreter code in the ROM, but 
you can redirect it and un-crunch double-byte tokens for commands you've added to 
BASIC. Upon entry to a routine indirectly jumped to thru this vector, the X register 
holds a code indicating whether the lead-in token is an $FE (coded with a value of 0) 
or $CE (coded with a value of 255). The A register holds the selector token 23. 

If the jumped-to routine decides that the double-token coded by X and A is valid, 
and thus can be un-crunched, it ends by jumping to an undocumented un-crunching rou- 
tine, FndTknTxt (see Section 2.21). To prepare for this exit jump, the X register gets 
stuffed with an adjusted version of the selector token, A gets the hi-byte of a pointer 
to a table of C-ASCII command names, and Y gets the lo-byte of that pointer. But if 
the jumped-to routine decides that the double-token coded by X and A is invalid, it sets 
the carry flag to 1 and jumps on to the regular lEscPr handler in the ROM. 

Grafix 80 uses this vector for its new 80-column graphics routines. The vector is 
reset to point to the routine lEscPrDetor. Check the heavily-commented code for vari- 
ous implementation details. 
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2.16 THE IESCEX VECTOR 

This vector rounds out the set that lets you add full-fledged commands to BASIC 
7.0. It lives at $0310-$0311. The name comes from the fact it's an indirect jump provid- 
ing an escape hatch during command execution. When the BASIC interpreter comes 
across an $FE double-token it doesn't recognize, it jumps to the routine pointed to by 
this vector. Normally, the vector points back into the ROM code. But it can be redirected 
to a routine of your own design. This is what I've done in Grafix 80. 

Upon entry to a routine pointed to by IEscEx, the $FE double-token's selector to- 
ken is in the A register. If this selector marks a valid command, you just go and carry 
out the command, then clear the carry flag to mark success and return via a simple RTS. 
If the selector is out of range, set the carry flag to mark failure and jump on to the regu- 
lar IEscEx handler. Again, refer to the Grafix 80 code, in particular the lEscExDetor 
routine, for heavily-commented real world examples of using this vector. 

2.17 TOKENS: CRUNCHING NEW BASIC COMMANDS 

We've covered most of this but here's a mini-review and some further detail. 

The key is redirecting the lEscLk vector to a special crunching routine, as covered 
in Section 2.14. The new commands will have double tokens, with an $FE lead-in. You 
also need to build a table containing the text of the new commands. One important fea- 
ture of this table is the last character of each command must have its high bit (bit 7) 
set to 1. That's because of the way the ROM routines scan for commands. Most assem- 
blers have a pseudo-op that takes care of this detail, though you can just figure out the 
proper code with all those extra neurons you're developing. The Merlin assembler sup- 
plies the DCI pseudo-op to cover this situation. In Grafix 80, the command table is called 
OurComsText. Finally, you need to associate selector tokens with each new command. 
These can be any integer in the range $26 to $7F. In Grafix 80, this is done with the 
constants listed in lines 255-263. 

FndComText is an undocumented ROM routine you can call from the crunching 
detour to carry out the crunching gruntwork. Section 2.20 gives further details about 
using it. 

2.18 TOKENS: DETECTING NEW BASIC COMMANDS 

First, we have to come up with detour routines for lEscLk, lEscPr, and IEscEx. 
In crunching, we scan a table of command names, as mentioned in 2.17, and come up 
with tokens. Then, in un-crunching, and executing new BASIC commands, we just run 
some comparison tests on the token(s) to see if it's one of our new commands. New 
commands will have double tokens, so we look for a lead-in token match and a selector 
token match. 

2.19 TOKENS: UN-CRUNCHING NEW BASIC COMMANDS 

Again, we've covered most of this but here's a mini-review and some further detail. 

The key is redirecting the lEscPr vector to a special un-crunching routine. Upon 
entry, the X register holds a code indicating an $FE or $CE lead-in token, A holds the 
selector token. If these two items indicate one of the new commands, we call on an 
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undocumented ROM routine, FndTknTxt, which does the actual un-crunching. Section 
2.21 details the calling protocol for FndTknTxt. 

2.20 UNDOCUMENTED ROM ROUTINE FNDCOMTXT ($43E2) 

In Grafix 80, this is the routine lEscLkDetor calls to see if the BASIC parser is 
looking at a command. To set up for the call, the processor's A register gets the high 
byte of a pointer to a table of command names, and Y gets the low byte of the pointer. 
This table holds a number of command names, and the last character in each command 
must have its high bit (bit 7) set to 1. Then FndComTxt is called with a JSR. It cruises 
through the table of command names, seeking a match for the character string that the 
BASIC interpreter is currently looking at via TxtPtr (see Sections 2.10 and 2.11). Upon 
return, the carry flag is set if the routine found that BASIC'S sitting on a command from 
the pointed-to table, and cleared if not. If a valid command was found, memory location 
$000D holds the 0-based offset of the command within its table. 

Be sure to refer to Chapter 3, Section 3.1 for more information on using un- 
documented ROM routines. 

2.21 UNDOCUMENTED ROM ROUTINE FNDTKNTXT ($51 6A) 

This routine, lEscPrDetor calls to un-crunch a token. To set up for the call, the 
processor's A register gets the high byte of a pointer to a table of command names, 
Y gets the low byte of the pointer, and X gets an adjusted offset into the 0-based table 
that shows the appropriate command name. This offset is slightly weird, in that it gets 
its high bit (bit 7) set. For example, if we want to print out the fifth command name 
in the table, the index passed to FndTknTxt is $84 (remember, the table is 0-based). 

2.22 LOW-MEMORY ROUTINE CHRGOT 

This routine is actually a subset of the ChrGet routine, engineered by entering that 
routine right after TxtPtr has been incremented. So, whereas ChrGet advances through 
a BASIC line, ChrGot grabs the currently pointed to byte. That is, it gets a character 
that's already been got. ChrGot comes in handy in parsing routines. You can call ChrGet 
to get the next character, play with it, even lose it in the play, then pick it up again 
with ChrGot. Also, some of the built-in parsing routines, like GetByt and GetWdByt, 
work through ChrGet. ChrGot lets you continue parsing after one of these calls. You'll 
find numerous real- world examples sprinkled throughout the Grafix 80 code, particularly 
in the various command parameter fetching routines. 

2.23 8502 USAGE: DERIVING AN ABSOLUTE VALUE 

This is a neat little trick, used in a couple of the Grafix 80 routines. Absolute value, 
in case you don't know, is the magnitude of a number, ignoring any negative signs. For 
example, the absolute value of both -5 and 5 is 5, the absolute value of both -126 and 
126 is 126. In Grafix 80, absolute value is used when we're figuring the length of a line 
segment through subtraction, so we don't have to worry about the positions of the end- 
point coordinates in the subtraction. 
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As used, the procedure applies to one-byte signed values, which means they're in 
the range - 128.. 127. The procedure involves a flip-flop followed by an incrementation. 
Here's a tidy little version: 

LDA RawValue ; get the raw value 

BPL :Done ; it's already positive 

EOR #$FF ; for a negative value, flip-flop it 

CLC ; prepare to increment 

ADC #1 ; increment 

:Done STA Absolute Value ; store the absolute value 

To work the same procedure on multi-byte signed values, you just flip-flop each 
byte with an EOR, then add 1 to the result. 

2.24 8502 USAGE: TWO-STAGE MASKING 

Masking refers to the process of setting and clearing particular bits in a byte. It's 
synonym for the standard logical operations: ANDing, ORing, and EXCLUSIVE ORing. 
Grafix 80 does a lot of masking, much of it setting and clearing bits and bytes for the 
80-column display and attribute memories. Sometimes, the masking is a two-stage 
process: an AND operation clears a range of bits, then an OR operation sets some of 
those bits. Or an EXCLUSIVE OR flip-flops a mask byte, followed by an AND and/or 
an OR. 

Grafix 80 usually uses tables of masking bytes, picked up from the various routines 
through indexing. As you read the Grafix 80 code, you'll see I played some condensa- 
tion tricks on these tables. I enjoyed discovering the close, symmetrical relationships 
between various AND and OR masks that let me squeeze these tables together. 

2.25 8502 USAGE: NIBBLE TRANSFER 

One of the holes in the 6502 family's assembly language is an easy way to shift nib- 
bles within a byte. The difficulty stems from the fact that the shift and rotate instruc- 
tions only move one bit position at a time. So nibble transfers— moving bits 0..3 into 
bits 4.. 7, or bits 4. .7 into bits 0..3— have to be accomplished with multiple bit shifts. 
In Grafix 80, there's an example that shows how to move a byte's lo-nibble (bits 0..3) 
into the hi-nibble (bits 4.. 7). S/M ASM 2 has code that shows how to swap nibbles. If 
any of you readers come up with more efficient 6502 nibble transfer techniques, please 
write immediately to let me in on your discoveries. 

2.26 UNDOCUMENTED ROM ROUTINE: GETBYT ($87F4) 

This is the third undocumented ROM routine used in Grafix 80. Again, check out 
Chapter 3, Section 3.1 for more information on this dangerous practice, why I stooped 
to it, and other tidbits. 

GetByt grabs a byte-sized integer parameter from a BASIC line. It doesn't matter 
whether the parameter's expressed as a constant or a variable. GetByt does all the neces- 
sary manipulations and conversions, then returns the recovered parameter's value in 
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the processor's X register. The BASIC parser's pointer ends up at the next line ele- 
ment following the parameter. In Grafix 80, GetByt is called on to grab parameters for 
the various 80-column commands. 

2.27 UNDOCUMENTED ROM ROUTINE: GETWDBYT ($8803) 

This is the fourth and last undocumented ROM routine used in Grafix 80. It's a close 
relative toGetByt. 

GetWdByt grabs a word-sized integer parameter and a byte-sized integer parame- 
ter from a BASIC line. It's a fairly common situation in BASIC 7.0 for a command to 
expect a pair of parameters to come in this order, separated by a comma. Thus, this 
function. Again, as in GetByt, it doesn't matter whether the parameters are expressed 
as constants or variables. GetWdByt does all the necessary manipulations and conver- 
sions, then returns the lo-byte of the word-sized parameter in memory location $0016, 
the hi-byte of the word-sized parameter in memory location $0017, and the byte-sized 
parameter in the processor's X register. The BASIC parser's pointer ends up at the 
next line element following the byte-sized parameter. In Grafix 80, GetWdByt is called 
on to grab parameters for the various 80-column commands. For example, a command 
may take a word-sized horizontal screen coordinate, and then a byte-sized vertical screen 
coordinate. 

2.28 8502 USAGE: MULTI-BYTE DIVISION BY POWERS OF 2 

Every time you shift a byte that represents an unsigned integer value one bit to 
the right, it has the same effect as dividing the byte's value by 2. This makes division 
by powers of 2 easy for such values, just shift right once for each power of 2 you want 
to divide by. But you may not know how to do the same kind of quick division when 
the number to be divided is stored in more than one byte. The trick is getting a bit 
that shifts out of one of the bytes moved into bit 7 of the next-lowest byte in the num- 
ber's multi-byte representation, so the chain of bit shifts is unbroken. This can be done 
with combinations of the LSR and ROR instructions. LSR shifts bits one position to 
the right, putting a into bit 7 of the byte and moving bit into the carry flag. ROR 
also shifts bits one position to the right, putting the contents of the carry flag into bit 
7, then moving bit into the carry flag. So, the way to accomplish division of a multi- 
byte unsigned integer value by 2 is to start with the hi-byte, do an LSR to get the ball 
rolling, then follow through with RORs on each of the lower bytes. Each time you carry 
this cycle through, each bit in the multi-byte representation moves 1 bit to the right, 
and the number gets divided by two. Repeat the cycle twice, you've divided by 4; three 
times, and you've divided by 8; and so on. Grafix 80 uses this technique to speed up 
a number of its calculations. 

2.29 SCREEN CLEARING VIA BSOUT 

This has been mentioned before, but Grafix 80 shows how sending a screen clear- 
ing character ($93) (147) to the kernel routine BSOut works on the 80-column VDC 
screen just as well as it does on the 40-column VIC screen. 
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2.30 KERNEL ROUTINE SWAPPER ($FF5F) 

As I first scanned through my eagerly-awaited C-128 Prg, I remember coming across 
this built-in function and wondering how soon I'd be using it. Well, there it is in Grafix 
80's ClrTx80 routine, written about three weeks after that first scan. Swapper switches 
you to the screen mode you're not in. That is, if you're in 40-column screen mode, it 
puts you into 80-column mode. If you're in 80-column screen mode, it puts you into 
40-column mode. And it takes care of all the screen variables and tables that the system 
uses to fiddle with a screen. There's no preparation, just call it with a simple JSR. 

2.31 CLEARING THE 80-COLUMN GRAPHICS SCREEN 

Using BSOut to clear a screen only works when the screen's in text mode. Graphics 
mode is a little tougher. Grafix 80 has a little routine that clears the 80-column bit map. 
It uses the 80-column chip's block write capability. The algorithm is quite simple: for 
each 256 byte page of the 80-column bit map display memory, fill that page with zeros. 
256 bytes is the most we can tell the VDC chip to work on in one block write command. 
Be sure to look at the code for the actual implementation of this algorithm. 

2.32 SETTING THE 80-COLUMN CHIP FOR TEXT OR GRAPHICS 

Bit 7 of VDC register 25 controls chip mode. Set the bit to 1 for bit map mode, 
for text mode. In the normal, full-page (640 horizontal by 200 vertical) bit map situa- 
tion, you'll have to disable attribute memory because there's no room for it. That's done 
by clearing bit 6 of register 25 to 0. When you go back to text mode, attribute memory 
is enabled by setting bit 6 of register 25 to 1. 

In Grafix 80, I use the full 640 by 200 bit map. So, to enter bit map mode I clear 
bit 6 of VDC register 25 and set bit 7. Going back to text mode, I set bit 6 and clear 
bit 7 of VDC register 25. 

2.33 80-COLUMN GRAPHICS COLOR CONTROL NIBBLES 

In 80-column bit map mode, with a full 640 horizontal by 200 vertical display, almost 
all of the VDC chip's 16K of private RAM is taken up by bytes for the bit map. There's 
no room left over for attribute memory. So, without an attribute area, the bit map dis- 
play is limited to two colors, one for the foreground and one for the background. Bits 
0. .3 (the lo-nibble) of VDC register 26 hold a color code in the 0. .15 range for the back- 
ground color, and bits 4. .7 (hi-nibble) of the same register hold a code for the foreground 
color. If a byte in the bit map has a bit set to 1, it'll show up in the foreground color. 
If a bit is set to 0, it'll show up in the background color. See Section 2.35 for more infor- 
mation on the color codes used in 80-column operations. 

2.34 80-COLUMN GRAPHICS PIXEL OPERATIONS 

In order to draw or clear a dot on the 80-column graphics screen, you set or clear 
the appropriate bit in the appropriate byte of the VDC bit map memory. How to find 
the appropriate bit and byte? There are 200 vertical positions, or rows, in the bit map, 
and each row has 640 horizontal positions, or columns. Each byte in the bit map memory 
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controls eight pixels, and eighty bytes map one row of the bit map (640 pixels). For 
once in my computer graphics work, the bit map is organized logically; that is, the first 
80 bytes map the first row of pixels, the next 80 bytes map the second row, and so on. 

Grafix 80 uses a routine called FigPoint to figure out bit and byte information for 
a given screen pixel. First, it figures out the address of the byte the pixel lives in. It 
takes the point's vertical coordinate, and uses it to index into some tables to build the 
address of the first byte in the point's row. The easy way is to have tables with an ad- 
dress for each of the 200 rows. To save some memory space, I've used shortened ta- 
bles, and done some tricky indexing based on regularities in the addresses, but the idea's 
the same. After getting the address of the starting byte of the pixels's row, FigPoint 
takes the pixels's horizontal coordinate and divides it by 8, since there are eight pixels 
controlled by each bit map byte. The integer, part of the division's result tells us the 
row offset of our pixel's byte; that is, how many bytes into the row the pixel's byte 
is at. I add that row offset value to the row's starting address, and get the exact address 
of the pixel's byte. The remainder from the horizontal coordinate division gives me the 
bit position in that byte that controls the given pixel. 

Okay. I've got a pixel's bit position in its byte, and the byte's location in the VDC 
RAM. To turn that pixel on, I just grab the byte, set the appropriate bit to 1, and store 
the byte back into position. Section 1.2.30 covers grabbing and storing VDC RAM bytes. 
Setting the appropriate bit to 1 is done with a mask and an OR A command. The pixel's 
bit position is used as an index into a table of ORing masks. Turning a pixel off is just 
about the same, except that this time we clear the appropriate bit to with a mask and 
an AND command. This time, the pixel's bit position is used to index into a table of 
ANDing masks. In Grafix 80, all this stuff gets done in the routines Plotlt, GetTargByt, 
PutTargByt, and PixelPop. 

2.35 BLOCK WRITE, BLOCK COPY, 80-COLUMN SCREEN REGISTERS 24 
AND 30 (WORD COUNT) AND 32 (BLOCK START ADDRESS HI) AND 33 
(BLOCK START ADDRESS LO) 

Registers 24, 30, 32, and 33 let you carry out block writes and block copies. Block 
writes let you fill contiguous areas of VDC RAM with the same byte. Block copies let 
you copy the contents of one contiguous area of VDC RAM to another contiguous area. 
In both procedures, VDC register 30 is used to indicate how many bytes are in the mem- 
ory block. Bit 7 of register 24 is used to indicate whether a block function is block copy 
or block write. Registers 32 and 33 are used in block copies to indicate the starting ad- 
dress of the transfer's source block. In Grafix 80, block writing is used to clear the graphics 
screen. 

Here's the official C-128 Prg block write procedure: 

1. Using the VDC register writing algorithm, set VDC register 18 to the 
hi-byte of the address of the initial byte in the block. 

2. Similarly, set VDC register 19 to the lo-byte of the address of the initial 
byte in the block. 

3. Using the VDC register writing algorithm, put the value you want to write 
to the block into VDC register 31 (the data register). 
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4. Using the VDC register writing algorithm, clear bit 7 of VDC register 
24 to to select the block write function. 

5. Again using the register writing algorithm, put into VDC register 30 the 
number of bytes in the block less one (since step 3 already wrote 1 byte) 

Here's the official C-128 Prg block copy procedure: 

1. Using the VDC register writing algorithm, set VDC register 18 to the 
hi-byte of the address of the initial byte in the destination block. 

2. Similarly, set VDC register 19 to the lo-byte of the address of the initial 
byte in the destination block. 

3. Using the VDC register writing algorithm, set bit 7 of VDC register 24 
to 1 to select the block copy function. 

4. Using the VDC register writing algorithm, set VDC register 32 to the 
hi-byte of the address of the initial byte in the source block. 

5. Similarly, set VDC register 33 to the lo-byte of the address of the initial 
byte in the source block. 

6. Again using the register writing algorithm, put into VDC register 30 the 
exact number of bytes in the block. 

2.36 80-COLUMN COLOR NIBBLES 

When working with the 80-column screen, you get to set colors with nibble-sized 
codes. But, unlike VIC graphics, you can't just poke the standard C-128 BASIC color 
numbers into attribute memory or the color registers. That's because the VDC color 
nibble codes are used directly to control the four components of the chip's IBM-PC-like 
color scheme: red, green, blue, and intensity. There's a mistake in the C-128 Prg con- 
cerning this subject: on page 302, they tell you that the nibble codes are determined 
by taking the BASIC color codes and subtracting one. Nope. The codes are found by 
figuring out which components are necessary to produce each of the sixteen colors, then 
putting together a nibble by representing each present component with a one bit, each 
absent component with a zero bit. Four components, four bits, one nibble. Got it? Ap- 
pendix I shows all the VDC colors, the BASIC codes, and the nibble codes. You can 
also find the same information at the end of Grafix 80, in the table HuNb80Tb. 
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Chapter 3: 
Program Notes 



3.1 UNDOCUMENTED ROM ROUTINES 

You should NEVER use undocumented ROM routines in a commercial software prod- 
uct. ROMs change quickly, and undocumented routines are usually misplaced in the 
change. 

However, since (1) Grafix 80 is written for learning, not selling, and (2) the un- 
documented ROM routines I've used are long, twisted and handy, and (3) replacement 
routines would add many pages to the source code, and (4) the undocumented ROM 
routines are used only in the BASIC 7.0 interface to the 80-column routines. I've used 
four of the no-no's. Two are used in BASIC command text searches :FndComTxt and 
FndTknTxt. Two others are used while fetching graphics command parameters from 
BASIC: GetByt and GetWdByt. You'll find descriptions of these four routines in Chap- 
ter 2: Sections 2.20, 2.21, 2.26, and 2.27 respectively. 

Of course, you may own a C-128 with different ROMs than mine. What to do if you 
want to use the 80-column graphics routines? There are two solutions. Here's one: you 
can call the routines from assembly language. That means you'll have to fiddle with the 
source code a bit, excising all the parts that have to do with BASIC interfacing, then 
call the remaining routines as needed. More precisely: remove Install, Unlnstall, 
InsCrchDtr, InsUncrDtr, InsExecDtr, RmvCrchDtr, RmvUncrDtr, RmvExecDtr, 
lEscLkDetor, lEscPrDetor, lEscExDetor, CommaCruz, DoG80Box, G8BoxGtPs, 
DG80Color, G8ColGtPs, DoG80Draw, G8DrwGtPs, DoG80Graphic, and 
G8GrfGtPs. Remove the running mode check and call to uninstall from DoG80Scat. 
Remove the call to install from G80 Install.S. Recompile the code, then run G80 Install. 
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Now, to call one of the 80-column commands from assembly language, you set up the 
command's parameters, optionally call the command's parameter-checking routine 
(G8xxxChPs), then call the command's execution routine (G8xxxDolt). Another trib- 
ute to heavily-modular code. Section 3.10 has a few more details on calling the routines 
from assembly language. 

There's a second way to deal with a ROM change that moves the undocumented 
routines in Grafix 80. It's a little tougher to pull off, but it maintains Grafix 80's full power. 
What you do is find the four routines in your ROM, then replace the old addresses with 
the new ones. The replacement is done by changing lines 192, 194, 196, and 198 in 
the constants section at the beginning of the Grafix 80 source code. Finding the new 
routine addresses is done with the C-128 monitor. Each of the routines has a unique 
sequence of bytes, or signature, that lets you find it. These signatures have a good chance 
of surviving ROM changes. Figure 3-1 shows each routine's current unique signature. 

Here's an example. If you want to find FndComTxt, enter the monitor and give 
this command: 

H F4000 FFFFF 85 25 84 24 A0 00 84 

This tells the monitor to hunt in the bank 15 memory range $4000 . . $FFFF for 
the sequence of seven bytes that make up FndComTxt's signature. On my C-128, the 
monitor comes back with the single address $43E2, which is where FndComTxt lives. 
Note that in some cases the address returned by the monitor after a signature search 
has to be adjusted; again, Fig. 3-1 tells all. 

Sometimes these signatures do get changed. In that case, you have to use the mon- 
itor to search for assembly language similar to the start of the current routines. Figure 
3-2 shows the first few commands for each of the four routines. This code is pretty posi- 



Undoc'd 

ROM 
Routine's 

Name 


Location 
In My 

C-128's 
ROM 


Unique 

Signature 

In My C-128's 

ROM 


Adjustments 

To Address 

Returned By 

Monitor Search 


FndComTxt 


$43E2 


85 25 84 24 A0 00 84 


none 


FndTknTxt 


$516A 


85 25 84 24A000CA 


none 


GetByt 


$87F4 


A666D0 


subtract 6 


GetWdByt 


$8803 


A6 67 4C 


add 5 


Start Monitor search command with: H F4000 FFFFF 



Fig. 3-1. If your C-128 has a different ROM than the author's, you may have some difficulty finding 
the four undocumented ROM routines used in the Grafix 80 project. This information should help you 
find them. 
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FndComTxt 


STA 


$25 




STY 


$24 




LDY 


#$00 




STY 


$0D 




DEY 






INY 






LDA 


($3D),Y 




SEC 






SBC 


($24), Y 


FndTknTxt 


STA 


$25 




STY 


$24 




LDY 


#$00 




DEX 






BPL 


*+$ll 




LDA 


($24), Y 




PHA 






INC 


$24 




PLA 




GetByt 


JSR 


$77D7 




JSR 


$84AD 




LDX 


$66 




BNE 


*+$2F 




LDX 


$67 




JMP 


$386 


GetWdByt 


JSR 


$77D7 




JSR 


$8815 




JSR 


$795C 




JMP 


GetByt 



Fig. 3-2. Here are the first few in- 
structions for each of the four un- 
documented ROM routines used in 
the Grafix 80 project. 



tion independent, so the odds are it won't change very much in any revised ROMs. And, 
if the routines do move, they usually don't move very far. 

Phew. See why we never use undocumented ROM routines in commercial code? 

3.2 MOVING BASIC UP TO FIT CODE BENEATH IT 

The C-64 has a number of nice nooks and crannies for stuffing assembly language 
programs. The C-128 has even more. But, if your routines are going to interact heavily 
with BASIC'S interpreter, it's particularly useful to put code in RAM bank 1, beneath 
BASIC'S text area. That minimizes memory configuring when the assembly routines 
are running. The area $1300-$1C00 is usually available for this purpose. It provides 2304 
bytes of memory space. 

But the Grafix 80 code is large. I needed even more room. To get it, I moved the 
start of BASIC'S text area up 512 bytes. G80 Install contains the code that does this, 
and Sections 2.2 and 2.3 describe the process. 
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3.3 HORIZONTAL LINE DRAWING ALGORITHMS 

Horizontal lines can be drawn faster than any other lines on most bit-mapped com- 
puter displays, including the C-128's. That's because these displays use consecutive 
bytes of screen memory to represent adjacent horizontal screen pixels. This organiza- 
tion of data gives us what the computer science types call coherence. The fundamental 
idea behind all fast horizontal line drawing algorithms is finding the byte that controls 
the leftmost pixel in the line, adjusting that pixel's bit, then continuing to adjust subse- 
quent bits up through the rightmost pixel's bit. Only the first pixel's byte's location has 
to be calculated or looked up; subsequent pixel's bytes follow consecutively. On the C-128 
this coherence is especially helpful, due to the nature of 80-column screen RAM access. 

The algorithm I use in the 80-column routines divides horizontal lines into three cases. 
The first case is what I call a one-part line, in which the line's pixels are controlled by 
one byte of screen memory. The second case is what I call a two-part line, in which 
the line's pixels are controlled by two bytes of screen memory. The third case is what 
I call a three-part line, in which the line's pixels are controlled by three or more bytes 
of screen memory. Figure 3-3 shows examples of these three line cases. And sheets 
12 thru 15 of Fig. 7-2 give complete pseudo-code for the horizontal line drawing algorithms. 

To draw a one-part line, I grab a mask for the left part of the line, grab one for 
the right part, take their intersection to get a mask that represents the whole line, then 
use that mask to adjust bits in the line's byte. Figure 3-4 gives a picture of the process. 

To draw a two-part line, I grab a mask for the left part of the line, then use that 
mask to adjust bits in the left part's byte. Then I grab a mask for the right part of the 
line, and use it to adjust bits in the right part's byte. Figure 3-5 gives a picture of this 
process. 



Examples Of Three Horizontal Line Cases 

a heptad of one-part lines 
■ l ll l | l l ■■■■ | I I II bhJ i ■■ I i i ^■■■■a i ^■■■■■■■j I I I 11T 



a trio of two-part lines 

1 1 1 1 1 ■^■■■■» 1 1 1 1 1 1 1 1 J« 1 1 1 1 1 1 [nnopjranm| ; 



Mil l 



a pair of three-part lines 
I I I I I I ■^■■■■■■■Jmib I I ■^■■■■■■^■■■■■■■^■■■■■■^■■■■■■«j 



Fig. 3-3. Our algorithm for drawing horizontal lines divides such lines into three classes: one-part lines, 
two-part lines, and three-part lines. Here are some examples of each class. 
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Drawing A One- 
get a mask starting at 
the line's leftmost pixel 

get a mask starting at 
the line's rightmost pixel 

take their intersection to get 
a mask for the whole line 

use the mask to draw the line 


Part Horizontal Line 


"zmtzzz. 




^s^i^ 




§§H§§ 




■■i 





Fig. 3-4. Our algorithm for drawing a one-part horizontal line. 



Drawing A Two-Part Horizontal Line 



get a mask for the 
left side of the line 



draw the left 
side of the line 



get a mask for the 
right side of the line 



draw the right 
side of the line 



33K3 



b: 



"4 



■d^^m: 



CE 



Fig. 3-5. Our algorithm for drawing a two-part horizontal line. 

To draw a three-part line, I do the left and right parts the same as for a two-part 
line. The middle section of the line, which consists of one or more whole bytes, is done 
by preparing an adjusted byte, then storing it in each byte. Figure 3-6 gives a picture 
of this process. 

3.4 VERTICAL LINE DRAWING ALGORITHM 

Vertical lines are also easy to draw on most bit-mapped displays. Coherence in these 
cases comes from the fact that the pixels in a vertical line are controlled by bytes that 
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Drawing A Three-Part Horizontal Line 



n 



i i 1 1 1 i I i i 1 1 1 1 1 



m 



in^ 



get a mask for the left side of the line 



rr 



"4 



n 



1 1 1 1 1 1 1 



n 



draw the left side of the line 



Mill 



get an adjusted byte for the middle parts of the line 




draw the middle parts of the line 



n 




WMBZZXA 1 



get a mask for the right side of the line 




draw the right side of the line 



Fig. 3-6. Our algorithm for drawing a three-part horizontal line. 

are separated by a constant number of memory locations. If you think about it, you'll 
realize that this constant is the number of bytes that controls a row of the bit-mapped 
display. 

This leads to the simple algorithm used in Grafix 80. Start with the topmost point 
in the line. Plot it. Then move down to the next pixel's byte by adding the appropriate 
constant. See sheet 12 in Fig. 7-2. 

3.5 BRESENHAM'S GENERALIZED LINE DRAWING ALGORITHM 

Horizontal and vertical lines can be drawn quickly, as detailed before, since there's 
no need for heavy calculation once the first point of the line is located. Other lines— the 
slanted ones— aren't quite so simple. Early generalized line drawing algorithms required 



23 



one or more multiplications to calculate each pixel's location. Multiplication is slow, as 
are the resulting algorithms. 

Then along came a person named Bresenham, who did a little mental and algebraic 
manipulation, and produced a generalized line-drawing algorithm that only requires addi- 
tions and subtractions. These operations can be done quickly. Bresenham's work is the 
basis for the generalized line-drawing algorithm used in Grafix 80. In the discussion that 
follows I'll refer to the algorithm as BGLDA (for Bresenham's Generalized Line Draw- 
ing Algorithm). 

Think of drawing a line as moving a point from one of the line's endpoints to the 
other. When the point reaches its destination, it will have achieved a net change in both 
its vertical and horizontal positions. In an ideal world, where display screens have in- 
finite resolution, each time the point moves one integer position horizontally, it moves 
some amount vertically. In most lines this amount won't be an integer value. Here in 
the real world, though, screens have finite resolution, and we can only move one pixel 
at a time; that is, we're limited to integer value motion. What the BGLDA does is keep 
track of the real vertical motion in a variable I call the erometer. Every now and then 
the erometer overflows. That is, the real motion reaches an integer value. At that point 
we move one position vertically, then reset the erometer. 

The values used to adjust the erometer are based on the line's slope. Different values 
are used for steep (slope greater than 45°) and shallow (slope less than 45°) lines. Differ- 
ent values are used for lines that rise or fall as the line goes from left to right. And, 
just to complicate the previous paragraph's discussion, sometimes the erometer keeps 
track of horizontal motion, rather than vertical. All these implementation details can be 
seen in the BGLDA pseudo-code, located on sheets 15 thru 18 of Fig. 7-2. Even more 
detail can be found in the actual assembly language code, located on sheets 41 thru 46 
of Fig. 8-2. But, remember, all of this is just detail. The big idea of the BGLDA is set- 
ting up a variable that keeps track of non-integer changes, then overflows once an in- 
teger value is reached. 

3.6 MULTIPLE SOURCE CODE FILES 

The C-128 doesn't have enough room to hold large assembly language source files. 
Most assemblers let you get around this by breaking a project up into a number of smaller 
source files. This is done in the Grafix 80 program. The code is broken up into six files. 
The files are connected by using the Merlin-128 pseudo-op PUT. See Appendix for 
details on this pseudo-op's usage. 

3.7 CHEAP BOX TRICKS 

The Grafix 80 routines take it easy when it comes to drawing boxes. Outlined boxes 
are drawn by calling on the horizontal and vertical line drawing routines. Filled boxes 
are drawn by calling repeatedly on the horizontal line drawing routines. And, since these 
routines are so quick, Grafix 80 box drawing is much faster than the C-128's built-in 
40-column box routines. 

3.8 RANGE ADJUSTMENT TO OPTIMIZE TESTING 

The Grafix 80 routine G8ColChPs checks to see if parameters to the G80Color 
command are in range. It pulls a little optimization trick when it checks the color number 
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parameter. The color parameter can take on values in the range 1 . . 16. G8ColChPs 
decrements the parameter value so it can check for values in the range . . 15. This 
is an easier range to check with assembly language code. 

3.9 GENERALIZING A DRAW COMMAND WITH A POINT LIST 

The G80Draw command operates like its 40-column counterpart, in that it can take 
a list of points as input and then draw a series of connected lines. In the Grafix 80 pack- 
age this ability is implemented by building a list of points. 

The point list in turn is implemented as an array of point entries, G8DrwLst. This 
array can hold up to 33 points. Each point is stored as three bytes: two bytes for a horizon- 
tal coordinate and one byte for a vertical coordinate. The variable G8DLPts keeps track 
of how many points are currently in the list. A zero-page variable, DLPntr, points to 
the beginning of the list. Finally, the variable G8DLNdx indexes off of DLPntr to point 
to the next open slot in the list. 

G8DrwGtPs fetches parameters for the G80Draw command. It starts out by call- 
ing InitPntLst to create a blank point list. Then, as points are picked up from the BASIC 
line, it calls on the routine StorPntLst to add them to the point list. 

G8DrwDolt draws single points and line segments. It checks the point list to see 
what to do. No points, and it simply exits. One point, and it calls on FigPoint and Plotlt 
to draw a single point. More than one point, and it draws a series of line segments that 
connect the points. 

Here's the simple algorithm G8DrwDolt follows for point lists containing two or more 
points (stated slightly differently here than on sheet 10 of Section Fig. 7-2, but amount- 
ing to the same code): 

grab two points from the point list 

CALL on DoLine to draw a line connecting them 

WHILE 

there's a next point to grab from the point list 
DO the following 

grab that next point 

CALL on DoLine to draw a line connecting it to the last line drawn 

3.10 CALLING THE 80-COLUMN 

GRAPHICS ROUTINES FROM ASSEMBLY LANGUAGE 

This was mentioned briefly in Section 3.1. Each of the G80 Grafix commands sports 
a modular design, as follows: Each command has an execution routine, named DoG80xxx. 
This routine is followed by a set of command parameter variables. The execution routine 
calls on three subsidiary routines: G8xxxGtPs, which fetches any command parameters 
from the BASIC line; G8xxxChPs, which checks the legality of command parameters, 
and GSxxxDolt, which carries out the command. To call one of the G80 Grafix commands 
from assembly language, start by plugging parameters directly into the command's pa- 
rameter variables. If you don't trust your ability to pass clean parameters, call the 
command's G8xxxChPs routine to check their legality. Then just call the G8xxxDolt 
routine to carry out the command. 
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You can see an example of this in the routine G8GrfDolt, which sets up parameters 
and then calls on G8ColDolt. 

3.11 COMMAND VARIATION BASED ON WHETHER THE 

BASIC INTERPRETER'S IN DIRECT MODE OR RUNNING A PROGRAM 

The Grafix 80 package shows you how to add commands to BASIC 7.0. When you 
add a command, it's easy to customize things so the command's behavior is dependent 
on whether the interpreter's running a program or working in direct mode. The key 
is memory location $007F. A zero value in this location indicates direct mode. A non- 
zero value indicates program mode. The DoG80Scat routine gives an example of using 
this location's value (the G80SCAT command works only in direct mode). 

3.12 MODULARITY AND OPTIMIZATION 

You'll notice that the routines used in the Grafix 80 package are highly modular. 
This has some effect on the speed of execution. If you wanted to optimize for speed, 
you might be tempted to combine some of the routines into more straight-line code. 
Be careful. Modularity is just too useful to be thrown out in any but the most time-critical 
situations. If you do need some extra speed, the first thing to do is examine your al- 
gorithms for possible speedups. Then look for ways to speed up inner loops. Unrolling 
a loop may be useful. Unrolling a loop just means that you do more things in the body 
of the loop. The tradeoff is space for time. For example, a loop like this: 

FOR 

position = 1 TO 20 
DO the following 

erase (position) 
. . . can be unrolled into a loop like this: 
FOR 

position = 1 to 20 STEP 4 
DO the following 

erase (position) 

erase (position +1) 

erase (position +2) 

erase (position +3) 

The second version's code will be longer, but will usually run faster. 

3.13 TABLES, TABLES, TABLES 

The Grafix 80 routines use a number of tables. There are tables for BASIC com- 
mands, masking pixels, addressing screen memory, and selecting colors. Tables let your 
programs run quickly and cleanly. And changes are easy to make. Actually, heavy table 
usage is just a subset of the following good idea: separate your code and data. That way 
you can make certain types of modifications to one without worrying about the other. 
Apple's Macintosh systems make powerful use of this idea with their implementation 
of the resource concept. But you can do similar things on any system, including the C-128. 

26 



3.14 ADDING COMMANDS TO THE PACKAGE 

There are five steps to follow to add a command to the Grafix 80 package. The first 
four hook your command into BASIC 7.0, and are pretty mechanical. The fifth step de- 
mands a bit more of the mind: writing the code to execute the new command. 

Let's go through the steps. First: go to the token stuff area of the Constants sec- 
tion of the Grafix 80 source code (lines 246-263 of Grafix 80 O.S.). Notice how there's 
a selector token equate for each of the commands already added to BASIC: TknBox, 
TknColor, TknDraw, TknGraphic, and TknScat. The values of these selector tokens 
begin at $27, with each command taking the next value. What you need to do is add 
an equate for your new command, using the next available value. For example, the first 
command you add could have an equate like this: 

TknAnim = $2C selector token for G80ANIMATE 

Next step is to adjust the constant OurLast, in the same section of the source code, 
so it's equal to the selector token with the greatest value. For example, if the example 
above were the only command you were adding, the new equate would look like this: 

OurLast = TknAnim ;last selector token for our commands 

The third hookup step is to add the command to the OurComsText table. This ta- 
ble is located at line 350 of the source file Grafix 80 5.S. It holds ASCII code for each 
command, with this twist: the last character of the command gets its high bit set. Com- 
mands are listed in the order of their selector tokens. The Merlin-128 assembler lets 
you put ASCII strings in the proper format for this list with the DCI pseudo-op. Here's 
how you'd add our example command: 

DCI 'g80animate' 

The fourth step is to add an execution branch for the new command to the lEscEx- 
Detor routine, located around line 240 of the source file Grafix 80 l.S. The pattern for 
these branches should be evident from the current lEscExDetor code. Here's how you'd 
add a branch for the example command we've been using: 



st6 CMP 


#TknAnim 


; is it G80ANIMATE command? 


BNE 


:Tst7 


; if not, next test 


(or BNE 


:NotOurs 


if this is the last test) 


JSR 


DoG80Anim 


; it is, so execute the command 


BCC 


:GoneZol 


; if we make it back, always branches 



So much for the mechanical steps. The fifth and final hookup step is writing the rou- 
tine that'll actually carry out the command. This execution routine must satisfy the fol- 
lowing pseudo-code conditional: 

IF 

the routine executes successfully 
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THEN 

the A-, X-, and Y- registers are preserved 

return from the routine is via an RTS 

the carry flag returns cleared 
ELSE {the routine ran into an error condition} 

the A- and Y- registers are preserved 

the X register gets loaded with an error code 

return from the routine is via a JMP thru the IError vector 

the carry flag returns set 

The execution routine will usually pick up some parameters from the BASIC line, 
although that's not always the case (see the Grafix 80 routine DoG80Scat). The 
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Fig. 3-7. Results from performance tests on drawing random dots. 
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Fig. 3-8. Results from performance tests on drawing random vertical lines. 

DOG80xxxx routines in Grafix 80 provide a number of examples of setting up execu- 
tion routines. 

3.15 PERFORMANCE TESTING 

I used the programs G80 Test Suite and G40 Test Suite to test the performance 
of the 80-column graphic commands. The results are summarized in Figs. 3-7 thru 3-12. 
The source code for the two programs is in Figs. 8-3 and 8-4. 

I tested performance by drawing pseudo-random samples of six types of graphics 
objects: dots, vertical lines, horizontal lines, lines, outlined boxes, and filled boxes. For 
each type of graphic object, there were four test sets run on the 40-column screen using 
the BASIC 7.0 drawing commands, and six test sets on the 80-column screen using the 
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draw 1 00 random horizontal lines 












ten trials 










all times are in seconds 












graphics chip 


40 


40 


40 


40 


width of drawing area 


160 


160 


320 


320 


processor speed 


slow 


fast 


slow 


fast 


average time per trial 


4.37 


2.07 


6.64 


3.14 


standard deviation 


0.14 


0.06 


0.26 


0.13 


relative speed ( 1 = fastest ) 


4.33 


2.05 


6.57 


3.11 












graphics chip 


80 


80 


80 


80 


width of drawing area 


160 


160 


320 


320 


processor speed 


slow 


fast 


slow 


fast 


average time per trial 


2.13 


1.01 


2.16 


1.04 


standard deviation 


0.01 


0.01 


0.01 


0.01 


relative speed ( 1 = fastest ) 


2.11 


1.00 


2.14 


1.03 












graphics chip 


80 


80 






width of drawing area 


640 


640 






processor speed 


slow 


fast 






average time per trial 


2.23 


1.08 






standard deviation 


0.01 


0.01 






relative speed ( 1 = fastest ) 


2.21 


1.07 







Fig. 3-9. Results from performance tests on drawing random horizontal lines. 

Grafix 80 extensions to BASIC 7.0. Test sets varied by the width of the active drawing 
area and whether the processor speed was 1 or 2 megahertz. Ten trials, each based 
on a different random seed, were run for each test set. The ten random seeds were 
(1, 2, 45, 1291, 5987, 8711, 9261, 22222, 28835, 33287). Each trial drew 100 pseudo- 
randomly located and sized instances of the graphic object. 

The figures give three performance values for each test. The first indicates the aver- 
age time (in seconds) per trial of 100 instances. The second value— standard deviation, 
indicates the time variation between trials. The lower the standard deviation, the smaller 
the time variation, signalling an algorithm that provides more consistent performance 
over different data worlds. Finally, there's a number that compares the average trail 
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times of the ten tests. The bigger the value here, the slower the test. 1.00 indicates 
the fastest test. 

Among the primary design goals for the Grafix 80 routines were consistency, relia- 
bility, and lucidity. The reasonably low 80-column standard deviation values help indi- 
cate this. Speed concerns were met by algorithmic refinement rather than code trickery. 
And the bottleneck interface to 80-column display memory slows down any 80-column 
graphics work. Interestingly, the Grafix 80 routines run as fast or faster than their 
40-column counterparts. And, unlike the 40-column routines, the Grafix 80 routines can 
be called directly from assembly language, which provides a marked speedup. 



draw 1 00 random lines 












ten trials 










all times are in seconds 












graphics chip 


40 


40 


40 


40 


width of drawing area 


160 


160 


320 


320 


processor speed 


slow 


fast 


slow 


fast 


average time per trial 


5.86 


2.77 


7.67 


3.62 


standard deviation 


0.22 


0.10 


0.28 


0.13 


relative speed ( 1 = fastest ) 


2.12 


1.00 


2.77 


1.31 












graphics chip 


80 


80 


80 


80 


width of drawing area 


160 


160 


320 


320 


processor speed 


slow 


fast 


slow 


fast 


average time per trial 


6.27 


3.07 


8.27 


4.08 


standard deviation 


0.25 


0.12 


0.28 


0.14 


relative speed ( 1 = fastest ) 


2.26 


1.11 


2.99 


1.47 












graphics chip 


80 


80 






width of drawing area 


640 


640 






processor speed 


slow 


fast 






average time per trial 


13.05 


6.51 






standard deviation 


0.54 


0.27 






relative speed ( 1 = fastest ) 


4.71 


2.35 







Fig. 3-10. Results from performance tests on drawing random lines. 
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draw 100 random outlined boxes 












ten trials 










all times are in seconds 












graphics chip 


40 


40 


40 


40 


width of drawing area 


160 


160 


320 


320 


processor speed 


slow 


fast 


slow 


fast 


average time per trial 


12.96 


6.13 


17.47 


8.26 


standard deviation 


0.64 


0.30 


0.82 


0.38 


relative speed ( 1 = fastest ) 


3.52 


1.67 


4.75 


2.24 












graphics chip 


80 


80 


80 


80 


width of drawing area 


160 


160 


320 


320 


processor speed 


slow 


fast 


slow 


fast 


average time per trial 


7.76 


3.68 


7.82 


3.72 


standard deviation 


0.52 


0.24 


0.52 


0.24 


relative speed ( 1 = fastest ) 


2.11 


1.00 


2.13 


1.01 












graphics chip 


80 


80 






width of drawing area 


640 


640 






processor speed 


slow 


fast 






average time per trial 


7.93 


3.80 






standard deviation 


0.52 


0.25 






relative speed ( 1 = fastest ) 


2.15 


1.03 







Fig. 3-1 1 . Results from performance tests on drawing random outlined boxes. 



draw 100 random filled-in boxes 












ten trials 










all times are in seconds 












graphics chip 


40 


40 


40 


40 


width of drawing area 


160 


160 


320 


320 


processor speed 


slow 


fast 


slow 


fast 


average time per trial 


267.30 


126.36 


532.22 


251.60 


standard deviation 


30.66 


14.50 


61.11 


28.89 


relative speed ( 1 = fastest ) 


44.11 


20.85 


87.83 


41.52 












graphics chip 


80 


80 


80 


80 


width of drawing area 


160 


160 


320 


320 


processor speed 


slow 


fast 


slow 


fast 


average time per trial 


11.83 


6.06 


13.55 


7.32 


standard deviation 


0.93 


0.49 


1.13 


0.63 


relative speed ( 1 = fastest ) 


1.95 


1.00 


2.24 


1.21 












graphics chip 


80 


80 






width of drawing area 


640 


640 






processor speed 


slow 


fast 






average time per trial 


16.83 


9.74 






standard deviation 


1.48 


0.90 






j relative speed ( 1 = fastest ) 


2.78 


1.61 







Fig. 3-12. Results from performance tests on drawing random filled-in boxes. 
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Chapter 4: 
Stretching 



4.1 SPECIAL CASING FOR 45° LINES 

Right now the Grafix 80 routines have special code for horizontal and vertical lines. 
Another special case you may want to code for are 45° lines. They're easy to recognize: 
the vertical and horizontal displacements are equal. And they're pretty easy to draw: 
to get to the next pixel in a 45° line, just move one position vertically, then move one 
position horizontally. For simplicity, you'll probably want to start at the leftmost end- 
point of the line. The code for vertical lines in Grafix 80 shows you the details of moving 
vertically. And the Bresenham code shows you the details of moving horizontally. 

4.2 OTHER GEOMETRIC FIGURES 

Another way you can expand the Grafix 80 package is with commands to draw other 
geometric figures: circles, ovals, regular polygons. 

The circle and oval algorithms are too complex to describe here, but I can point 
you at two good books: Artwick's Applied Concepts in Microcomputer Graphics and Foley 
& Van Dam's Fundamentals Of Interactive Computer Graphics. Some of the hottest 
algorithms for these figures are coded into the Apple Macintosh ROM, but you'll need 
to disassemble the code, not a trivial task. 

Regular polygons (triangles, hexagons, pentagons, et al.) are simpler. A polygon 
is drawn as a series of connected lines. Given a starting point and an orientation, simple 
applications of trigonometry let you figure the endpoints of these connected lines. Refer 
to any good high school trigonometry textbook for the details. 
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4.3 CODE UNFOLDING 

The Grafix 80 code is highly modular. This nurtures reliability and keeps the code 
size down. It also slows performance, due to the overhead of register-preserving func- 
tion calls. If you like, you can speed things up by unfolding the code. 

For example, the Grafix 80 line drawing routines (DoHorz, DoVert, and DoBres) 
go through a chain of calls to plot a point on the screen: they call on Plotlt, which calls 
on GetTargByt, PixelPop, and PutTargByt, which make calls to VDCRegPoke, 
VDCMemPeek, and VDCMemPoke. You could replace all of these subroutine calls 
with the actual subroutine code. That's code unfolding. Speed would be increased, at 
the expense of memory. 

4.4 BIT-MAPPED TEXT 

A feature missing from the Grafix 80 package is the ability to draw text characters 
on the bit-mapped screen. Actually, bit-mapped text drawing can be done at many levels 
of sophistication. I'll outline a few of those levels here, along with some implementation 
hints. Note: as with many programming tasks, text drawing sophistication and algorith- 
mic complexity increase together. 

The simplest form of text drawing on a bit-mapped screen simulates a text display. 
For the C-128's 80-column screen that means each character is drawn within a box that's 
eight pixels wide and eight pixels high, and these boxes are aligned on a grid that's 80 
characters wide and 25 characters high. Eight bytes of data code a character, each byte 
representing a row of the character's image. To draw a character, the eight character 
image bytes are transferred to screen memory. Given the 80h by 25v alignment con- 
straints, each image byte falls evenly within a byte of screen memory. This simplifies 
the transfer of image bytes. The next programming project in this book, the sound/mu- 
sic lab, draws aligned text on the 40-column bit-mapped screen. The routine DrawBM- 
Char does the work; you can find its source code in Fig. 16-1. Drawing text on the 
80-column screen differs only in the details of screen memory arrangement and access. 

A more sophisticated level of bit-mapped text drawing lets you draw characters at 
any screen position, not just aligned to an 80h by 25v matrix. This means that the bytes 
of the character image won't necessarily line up with the bytes of screen memory. If 
the bytes do line up, transfer is as described in the previous paragraph. If they don't 
line up, each image byte has to be shifted across into two bytes. Then masks are made, 
and the transfer of image data can be carried out. 

An even higher level of bit-mapped text drawing lets you draw characters of varying 
widths. This means that you need to have width information for each character, and that 
character images may fall anywhere in relation to screen memory byte boundaries. 

Finally, how about being able to draw characters in any orientation on the screen? 
That is, not just placing them horizontally, left to right, but at various angles. This is 
most easily done by performing various planar transformations on the character image 
data. Details on these sorts of transformations can be found in Foley & Van Dam's 
Fundamentals Of Interactive Computer Graphics. 
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Chapter 5: 

Calling 

Structure Diagrams 

This chapter consists of four figures, as follows: 

Fig. 5-1— calling structure diagram for G80 Install (1 sheet). 

Fig. 5-2— calling structure diagram for Grafix 80 (8 sheets). 

Fig. 5-3— calling structure diagram for G80 Test Suite (1 sheet). 

Fig. 5-4— calling structure diagram for G40 Test Suite (1 sheet). 
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gB0 install - csd #1 
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main 
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Fig. 5-1 . Calling structure diagram for G80 Install. 
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Fig. 5-2. Calling structure diagrams for Grafix 80. 
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Fig. 5-3. Calling structure diagram for G80 Test Suite. 
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Fig. 5-4. Calling structure diagram for G40 Test Suite. 
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Chapter 6: 
Subroutine Line Starts 

This chapter consists of three figures, as follows: 

Fig. 6-1— list of subroutine line starts for Grafrx 80 (3 sheets). 
Fig. 6-2— list of subroutine line starts for G80 Test Suite (1 sheet). 
Fig. 6-3— list of subroutine line starts for G40 Test Suite (1 sheet). 



47 



GRAF1X 80 - Subroutine Line Starts Sheet 1 of 3 

Install 0-317 

UnlnstaU 0-331 

InsCrchDtr 1-3 

InsUncrDtr 1-30 

InsExecDtr 1-57 

RmvCrchDtr 1-84 

RmvUncrDtr 1-105 

RmvExecDtr 1-126 

IEscLkDetor 1-147 

IEscPrDetor 1-203 

IEscExDetor 1-237 

CommaCruz 1-280 

DoG80Box 2-3 

G8BoxGtPs 2-38 

G8BoxChPs 2-127 

G8BoxDoIt 2-190 

:Horiz 2-285 

:Verti 2-304 

DoG80Color 2-321 

G8ColGtPs 2-347 

G8ColChPs 2-367 

G8ColDoIt 2-405 

DoG80Draw 3-3 

G8DrwGtPs 3-40 

InitPntLst 3-101 

StorPntLst 3-126 

G8DrwChPs 3-172 

G8AjGrfCrs 3-243 

G8DrwDoIt 3-283 

DoG80Graphic 3-370 

G8GrfGtPs 3-394 

G8GrfChPs 3-413 

G8GrfDoIt 3-454 

DoG80Scat 3-549 

IntGrfCrs 4-3 

DoLine 4-23 

DoVert 4-97 

DoHorz 4-151 

Fig. 6-1. List of subroutine line starts for Grafix 80. 
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GRAF1X 80 - Subroutine Line Starts 

:DoLftPrt 4-320 

:DoRitPrt 4-342 

DoBres 4-393 

:GoRite 4-647 

:GoUp 4-661 

:GoDown 4-674 

ClrTx80 5-3 

ClrGr80 5-42 

FigPoint 5-89 

Plotlt 5-166 

GetTargByt 5-181 

PutTargByt 5-186 

PixelPop 5-219 

VDCMemPoke 5-268 

VDCRegPoke 5-270 

VDCMemPeek 5-277 

VDCRegPeek 5-279 

OptNxtByt 5-287 



G80 TEST SUITE - Subroutine Line Starts 



Sheet 1 of 1 



Main Program Block 1270 

Initialize 1350 

Run The Tests 1820 

Report The Results 1930 

Draw 100 Random Dots 2130 

Draw 100 Random Vertical Lines 2320 

Draw 100 Random Horizontal Lines 2510 

Draw 100 Random Lines 2700 

Draw 100 Random Outlined Boxes 2890 

Draw 100 Random Filled Boxes 3080 

Print Result Headings 3270 



Fig. 6-2. List of subroutine line starts for G80 Test Suite. 
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G40 TEST SUITE - Subroutine Line Starts 


Sheet 1 of 1 


Main Program Block 


1250 


Initialize 


1330 


Run The Tests 


1800 


Report The Results 


1910 


Draw 100 Random Dots 


2110 


Draw 100 Random Vertical Lines 


2300 


Draw 100 Random Horizontal Lines 


2490 


Draw 100 Random Lines 


2680 


Draw 100 Random Outlined Boxes 


2870 


Draw 100 Random Filled Boxes 


3060 


Print Result Headings 


3250 



Fig. 6-3. List of subroutine line starts for G40 Test Suite. 
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Chapter 7: 
Selected Algorithms 



This chapter consists of three figures, as follows: 

Fig. 7-1— selected algorithms from G80 Install (1 sheet). 
Fig. 7-2— selected algorithms from Grafix 80 (22 sheets). 
Fig. 7-3— selected algorithms from G80 Test Suite (4 sheets). 
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Selected Algorithms From G80 Install Sheet 1 of 1 

main 

save some registers 

save current memory configuration 

set memory configuration to Bank 15 ( system bank ) 

set BASIC text start to a new position 

zero out the byte just before BASIC text start 

do a BASIC NEW command by calling the ROM routine JmpNEW 

load in the GRAFK 80 object code 

call the GRAFK 80 routine Install to install the 80-column routines 

call the ROM routine SoftReset to do a BASIC warm start 

restore the entry memory configuration 

restore some registers 

RETURN 



Fig. 7-1 . Selected algorithms from G80 Install. 



Selected Algorithms From GRAFK 80 Sheet 1 Of 22 

Install 

call on InsCrchDtr to install a command crunching detour 
call on InsUncrDtr to install a command un-crunching detour 
call on InsExecDtr to install a command execution detour 
RETURN 

Unlnstall 

call on RmvCrchDtr to remove a command crunching detour 
call on RmvUncrDtr to remove a command un-crunching 

detour 
call on RmvExecDtr to remove a command execution detour 
RETURN 

InsCrchDtr 

save some registers 

save the current command crunching vector 

point the command crunching vector at our detour routine 

restore some registers 

RETURN 

Fig. 7-2. Selected algorithms from Grafix 80. 
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InsUncrDtr 

save some registers 

save the current command un-crunching vector 

point the command un-crunching vector at our detour routine 

restore some registers 

RETURN 

InsExecDtr 

save some registers 

save the current command execution vector 

point the command execution vector at our detour routine 

restore some registers 

RETURN 

RmvCrchDtr 

save some registers 

point the command crunching vector back at its original routine 

restore some registers 

RETURN 

RmvUncrDtr 

save some registers 

point the command un-crunching vector back at its original routine 

restore some registers 

RETURN 

RmvExecDtr 

save some registers 

point the command execution vector back at its original routine 

restore some registers 

RETURN 

IEscLkDetor 

save entry byte of program text 

IF 

the entry byte is one of the following : 

end of input buffer 

colon 
question mark 

a token 

quotation mark 

THEN do this 

restore entry byte 
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JUMP to the regular IEscLk routine with flag set for 
no-command-found 
call on the undocumented System routine FndComTxt to see 

if the entry byte is the start of one of our 80-column 

graphics commands 
IF 

FndComTxt says it didn't find one of our new commands 
THEN 

restore entry byte 

JUMP to the regular IEscLk routine with flag set for 
no-command-found 
ELSE { one of our new commands was found ) 

set up registers for command tokenizing 

JUMP to the regular IEscLk routine with flag set for 
command-found 

IEscPrDetor 
IF 

the lead-in token is not $FE 

OR 
the selector token is less than our first selector token 
value 
OR 
the selector token is greater than our last selector token 

value 
THEN 

JUMP to the regular IEscPr routine with flag set for 
not-our-token 
ELSE { we've found one of our token pairs } 
set up for token un-crunching 

JUMP to the undocumented System routine FndTknTxt to 
un-crunch the token pair 

lEscExDetor 
IF 

the selector token indicates the G80BOX command 
THEN 

call on DoG80Gox to carry out the command 

RETURN 
ELSE IF 

the selector token indicates the G80COLOR command 
THEN 
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call on DoG80Color to carry out the command 

RETURN 
ELSE IF 

the selector token indicates the G80DRAW command 
THEN 

call on DoG80Draw to carry out the command 

RETURN 
ELSE IF 

the selector token indicates the G80GRAPHIC command 
THEN 

call on DoG80Graphic to carry out the command 

RETURN 
ELSE IF 

the selector token indicates the G80SCAT command 
THEN 

call on DoG80Scat to carry out the command 

RETURN 
ELSE 

JUMP to the regular IEscEx routine with a flag set to 
signal not-our-token 

CommaCruz 

call on the System routine IndTxt to grab the 

currently-pointed-at byte of BASIC text 
IF 

the byte represents a comma 
THEN 

JUMP to the System routine ChrGet to grab the next 

meaningful byte in the BASIC statement and RETURN 
ELSE { the byte doesn't represent a comma } 

JUMP to the System routine IError to signal 'syntax error' 

DoG80Box 

call on G8BoxGtPs to fetch any command parameters 
call on G8BoxChPs to check the legality of any parameters 
IF 

there's a problem with one of the parameters 
THEN 

JUMP to the IError routine to signal an 
'illegal quantity' error 
ELSE { the parameters checked out okay } 

call on G8BoxDoIt to carry out the command 
RETURN signalling that all went well 
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G8BoxGtPs 

set the default paint parameter to 'no-paint' 

call on the System routine ChrGet to get the BASIC statement 

element that follows G80BOX 
IF 

the next element is a comma 
THEN 

set color source to foreground 
ELSE 

call on undocumented System routine GetBvt to get a color 
source from the BASIC statement 
call on CommaCruz to cruise through a comma 
call on undocumented System routine GetWdBvt to get a first 

point's horizontal and vertical coordinates 
store those coordinates 
IF 

there are no more elements to the BASIC statement 
THEN 

RETURN 
{ there are more elements to the BASIC statement } 
call on CommaCruz to cruise through a comma 
IF 

the next element isn't a comma 
THEN 

call on undocumented System routine GetWdBvt to get a 
second point's horizontal and vertical coordinates 

move the graphics cursor to this second point 
call OptNxtByt and store the result as the paint parameter 
IF 

a call to ChrGot shows there are more elements to the 
BASIC statement 
THEN 

JUMP to IError to signal a "syntax error" 
ELSE 

RETURN 

GSBoxChPs 

save some registers 
IF 

color source is not set for foreground 

AND 
color source is not set for background 
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THEN 

restore some registers 

RETURN, signalling an error 
IF 

first point's vertical coordinate is too large 
OR 

second point's vertical coordinate is too large 
THEN 

restore some registers 

RETURN, signalling an error 

IF 

first point's horizontal coordinate is too large 
OR 

second point's horizontal coordinate is too large 
THEN 

restore some registers 

RETURN, signalling an error 
IF 

paint parameter's not 
AND 

paint parameter's not 1 
THEN 

restore some registers 

RETURN, signalling an error 
restore some registers 
RETURN, signalling all is okay with the parameters 

G8BoxDoIt 

save some registers 

save current memory configuration 

set memory configuration to Bank 15 ( system bank ) 

use color source to set up for drawing or erasing 

IF 

the paint flag says "no paint" 

THEN { we're working on an outlined box ) 

call on : Horiz to draw the first horizontal line 
call on : Horiz to draw the second horizontal line 
call on : Verti to draw the first vertical line 
call on : Verti to draw the second vertical line 

ELSE { we're working on a filled-in box } 

figure the height of the box -- that is, how many 
rows it contains 
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FOR 

each of the box's rows 

DO the following : 

call on : Horiz to draw the row 

restore the entry memory configuration 

restore some registers 

RETURN 



: Horiz 



set vertical coordinates 
set horizontal coordinates 
call DoLine to draw the line 
RETURN 

:Verti 

set horizontal coordinates 
set vertical coordinates 
call DoLine to draw the line 
RETURN 

: InitPntLst 

save some registers 

set the draw-list point counter to 

set the draw-list indexer to the Oth byte of the list 

set the draw-list pointer to the beginning of the list 

restore some registers 

RETURN 

StorPntLst 

save some registers 

add the point's horizontal coordinate to the draw list using the 

draw-list indexer and the draw-list pointer 
add the point's vertical coordinate to the point list using the 

draw-list indexer and the draw-list pointer 
store the incremented ( by three - that's how many bytes 

were just stored ) draw-list indexer 
increment the draw-list point counter 
restore some registers 
RETURN 

G8DrwDoIt 

save some registers 
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save entry memory configuration 

set memory configuration to Bank 15 ( system bank ) 

IF 

there are points to draw 
THEN 

set up to draw or erase, based on foreground or 

background being the color source 
IF 

there's just one point to draw 
THEN 

grab the point's coordinates off the draw list 
call on Fi gPoint to set up the point's vital plotting info 
call on Plotlt to draw the point 
ELSE { there's more than one point to draw } 
FOR 

each of the line segments in the draw list 
DO the following 

grab the line segment's endpoint coordinates from 

the draw-list, using the draw list pointer 
call on DoLine to draw the line segment 
move the draw-list pointer along 
restore the entry memory configuration 
restore some registers 
RETURN 

DoG80Scat 
IF 

we're not in direct mode 
THEN 

JUMP to IError signalling a "direct mode only" error 
ELSE { we're in direct mode } 

call on G8GrfDoIt to get a cleared 80-column text screen 
call on Unlnstall to un-install the 80-column graphics 

commands 
zero out the byte just before the standard BASIC text 

start 
set the BASIC text start back to its standard position 
call on the System routine JmpNEW to execute a BASIC NEW 

command 
call on the System routine SoftReset to do a warm start of 

BASIC 
RETURN, signalling that all went well 
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DoLine 

save some registers 
IF 

the line is vertical 
THEN 

call on DoVert to draw a vertical line 
ELSE 

adjust line endpoints so first point is leftmost 
IF 

the line is horizontal 
THEN 

call on DoHorz to draw a horizontal line 
ELSE { the line is sloped } 

call on DoBres to draw a sloped line 
restore some registers 
RETURN 

DoVert 

save some registers 

figure the height of the line 

adjust points so the first point is topmost 

call on FigPoint to set up the first point's vital plotting info 

STARTING WITH 

the first point 
FOR 

as many points as the line has height 
DO the following 

call on Plotlt to plot a point 

move vital point-plotting info down to the next point in 
the line 
restore some registers 
RETURN 

DoHorz 

save some registers 

figure the length of the line 

call on FigPoint to set up the first point's vital plotting info 

figure out the bit-in-byte position for the line's rightmost point 

figure out the bit-in-byte position for the line's leftmost point 

IF 

the line length is greater than 256 
THEN 

{ we have a three-part line-drawing situation } 
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call on :3Part to draw the line 
ELSE IF 

the line length plus the leftmost point's bit-in-byte position 
is less than 8 
THEN 

( we have a one-part line-drawing situation } 

call on .iPart to draw the line 
ELSE IF 

the line length plus the leftmost point's bit-in-byte position 
is less than 16 
THEN 

{ we have a two-part line-drawing situation } 

call on :2Part to draw the line 
ELSE 

{ we have a three-part line-drawing situation ) 

call on :3Part to draw the line 
restore some registers 
RETURN 

:3Part 

call on :DoLftPrt to draw the left part of the line 
figure the number of bytes in the middle part of the line 
prepare a byte that'll either draw or erase pixels 
FOR 

each byte in the middle part of the line 
DO the following 

call on VDCMemPoke to store the prepared byte 
adjust a pointer to point to the right part of the line 
call on : DoRitPrt to draw the right part of the line 
RETURN 

:2Part 

call on :DoLftPrt to draw the left part of the line 
adjust a pointer to point to the right part of the line 
call on : DoRitPrt to draw the right part of the line 
RETURN 

■jEm 

get an OR mask for the left part of the line 
get an OR mask for the right part of the line 
AND the OR masks together to get a custom mask 
call on GetTargByt to grab the screen target byte 
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IF 

we're drawing ( turning bits on ) 
THEN 

OR the target byte with the custom mask 
ELSE { we're erasing ( turning bits off ) } 

invert the custom mask 

AND the target byte with the inverted custom mask 

call on PutTargByt to store the screen target byte 
RETURN 



:DoLftPrt 

call on GetTarg Bvt to grab the screen target byte 
IF 

we're drawing ( turning bits on ) 
THEN 

OR the target byte with the appropriate left part OR mask 
ELSE { we're erasing ( turning bits off ) } 

AND the target byte with the appropriate left part AND 
mask 
call on PutTargBvt to store the screen target byte 
RETURN 



:DoRitPrt 

call on GetTarg Bvt to grab the screen target byte 
IF 

we're drawing ( turning bits on ) 
THEN 

OR the target byte with the appropriate right part OR 
mask 
ELSE { we're erasing ( turning bits off ) } 

AND the target byte with the appropriate right part AND 
mask 
call on PutTargBvt to store the screen target byte 
RETURN 



DoBres 

save some registers 

figure out the line's horizontal position change ( Raw Delta X, 
which will always be positive )_ 

figure out the line's vertical position change ( Raw Delta Y , 
which can be positive or negative, and a positive version, 
Absolute Delta Y ) _ 

figure out whether the line rises or falls as it goes from left 
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to right 
figure out whether the line's slope is steep ( greater than 45° ) 

or shallow ( less than 45° ) 
set increments, erometer, and counter as follows: 
IF 

the line is steep 
THEN 

set Increment One to twice Raw Delta X 
initialize the Erometer to Increment One minus 

Absolute Delta Y 
set Increment Two to Erometer minus Absolute 

Delta Y 
initialize the Counter to Absolute Delta Y plus one 
ELSE { the line is shallow } 

set Increment One to twice Absolute Delta Y 
initialize the Erometer to Increment One minus 

Raw Delta X 
set Increment Two to Erometer minus Raw Delta X 
initialize the Counter to Raw Delta X plus one 
call on FigPoint to set up the first point's vital plotting info 
figure out the starting point's bit-in-byte position 
call on Plotlt to draw/erase the starting point 
decrement the Counter 
FOR 

the number of points in the Counter 
DO the following : 
IF 

it's a shallow line 
THEN 

call on :GoRite to move right one position 
ELSE { it's a steep line } 
IF 

it's a rising steep line 
THEN 

call on :GoUp to move up one position 
ELSE { it's a falling steep line } 

call on :GoDown to move down one position 
IF 

the Erometer value is negative 
THEN 

add Increment One to the Erometer 

ELSE { the Erometer value is positive } 

add Increment Two to the Erometer 
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IF 

it's a shallow line 
THEN 
IF 

it's a rising shallow line 
THEN 

call on :GoUp to move up one position 
ELSE { it's a falling shallow line } 

call on :GoDown to move down one position 
ELSE { it's a steep line } 

call on :GoRight to move right one position 
store the point's bit-in-byte position 
call on Plotlt to plot the point 
restore some registers 
RETURN 

:GoRite 

increment the target bit-in-byte position 
IF 

we've moved on into the next byte 
THEN 

reset the target bit-in-byte position to 

increment the target byte pointer 
RETURN 

■GoUp 

subtract a line's worth of bytes from the target byte pointer 
RETURN 

:GoDown 

add a line's worth of bytes to the target byte pointer 
RETURN 

ClrTxSO 

save some registers 

IF 

we're in 40-column screen mode 

THEN 

call on the System routine Swapper to change to 
80-columns from 40 
clear the screen through a call to the System routine BSOut 
IF 

we were in 40-column screen mode upon entry 
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THEN 

call on the System routine Swapp er to change to 

40-columns from 80 
restore some registers 
RETURN 

ClrCr SQ 

save some registers 
FOR 

each 256-byte page in the VDC RAM memory 
DO the following 

call on VDCRegPoke to set the VDC Update Address 

registers to this page 
call on VDCRegPoke to tell the VDC chip to fill this 
page with 256 zeroes 
restore some registers 
RETURN 

FigPoint 

{ upon entry the routine is given a point's horizontal and 
vertical coordinates } 
save some registers 
use the point's vertical coordinate to get the address of the 

first byte in the point's row 
add in the point's horizontal coordinate to get the address of 

the point's byte 
set the target byte pointer to that address 
AND the lo-byte of the horizontal coordinate with %000001 1 1 

(+7) to get the point's bit-in-byte position 
set the target bit-in-byte position to that value 
restore some registers 
RETURN 

Plotlt 

call on GetTarg Byt to fetch the target point's byte 

call on PixelPop to set the target point's bit in its byte on or 

off 
call on PutTarg Byt to store the target point's modified byte 
RETURN 

GetTarg Bvt 

save some registers 

call on VDCRegPoke to aim the VDC Update Address registers at 
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the target byte 
call on VDCMemPeek to grab the target byte from VDC RAM memory 
restore some registers 
RETURN 

PutTargBvt 

save some registers 

call on VDCRegPoke to aim the VDC Update Address registers at the target byte 

call on VDCMemPoke to store the target byte into VDC RAM 

memory 
restore some registers 
RETURN 

PixelPop 

save some registers 
IF 

we're turning a pixel on 
THEN 

OR the target byte with an on-mask customized to the 
target pixel's bit-in-byte position 
ELSE { we're turning a pixel off } 

AND the target byte with an off-mask customized to the 
target pixel's bit-in-byte position 
store the modified target byte 
restore some registers 
RETURN 

OptNxtByt 
IF 

a call to the ROM routine ChrGot shows there's nothing 
left to fetch from the current BASIC statement 
THEN 

RETURN, signalling and carrying a default value of 
ELSE IF 

a call to CommaCruz to make sure there's a comma comes 
back empty handed 
THEN 

RETURN, signalling and carrying a default value of 

ELSE 

call on the undocumented ROM routine GetByt to fetch a 

byte-sized value 
RETURN, signalling and carrying a fetched value 
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Selected Algorithms From G80 TEST SUITE Sheet 1 Of 3 

Main Program Block 

Initialize constants and variables 
Run The Tests 
Report The Results 
RETURN 

Initialize 

fetch a random seed ( 1.. 32768 ) from the user 

fetch a screen width ( 0..639 ) from the user 

give some feedback 

speed up to 2 megahertz speed 

FOR 

each of 100 array elements 
DO the following 
FOR 

each of 4 coordinate arrays { T(), B(), L(), & R () } 
DO the following 

set the array's element to a value chosen randomly 
from the element's permissible range of values 
FOR 

each of the six tests 
DO the following 

read in the test's name label 
slow down to 1 megahertz speed 
RETURN 

Run The Tests 

Draw 100 Random Dots 

Draw 100 Random Vertical Lines 

Draw 100 Random Horizontal Lines 

Draw 100 Random Lines 

Draw 100 Rand om Outlined Boxes 

Draw 100 Random Filled Boxes 

RETURN 

Report The Results 

go to a cleared 80-column text screen 
Print Result Heading s 

Fig. 7-3. Selected algorithms from G80 Test Suite. 
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FOR 

each of the six tests 
DO the following 

print the test name 

print the adjective 'slow' 

print the result of the test run at 1 megahertz speed 

print the test name 

print the adjective 'fast' 

print the result of the test run at 2 megahertz speed 
print a blank line 
RETURN 

Draw 100 Random Dots 

go to a cleared 80-column graphics screen 
slow down to run the test at 1 megahertz speed 
reset the timer 
FOR 

each of 100 points 
DO the following 

draw the point by using elements from the coordinate 
arrays L0 and T() 
stop the timer and record the time 
speed up to run the test at 2 megahertz speed 
reset the timer 
FOR 

each of 100 points 
DO the following 

draw the point by using elements from the coordinate arrays L() and T() 
stop the timer and record the time 
RETURN 

Draw 100 Random Vertical Lines 

go to a cleared 80-column graphics screen 
slow down to run the test at 1 megahertz speed 
reset the timer 
FOR 

each of 100 lines 
DO the following 

draw the line by using elements from the coordinate arrays B(), L(), and T() 
stop the timer and record the time 
speed up to run the test at 2 megahertz speed 
reset the timer 
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FOR 

each of 100 lines 
DO the following 

draw the line by using elements from the coordinate arrays B(), L(), and T() 
stop the timer and record the time 
RETURN 
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Chapter 8: 
Program Listings 



This chapter consists of four figures, each of which lists code for a program: 



Fig. 8-1— code for G80 Install 
Fig. 8-2— code for Grafix 80 
Fig. 8-3— code for G80 Test Suite 
Fig. 8-4— code for G40 Test Suite 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 



program identification 

G80 INSTALL. S 

Installs the 80-column graphics commands contained 
in the file GRAFIX 80 

Here ' s how to run it : 
BLOAD "G80 INSTALL" 
SYS 7592 



Version : 
Timestamp 



1.00 

2:11 PM PST 



September 20 , 1 986 



Programmed by Stan Krute 

Copyright (C) 1986 by Stan Krute 's Hacker & Nerd 

18617 Camp Creek Road 
Hornbrook, California 96044 
[916] 475-3428 

All rights reserved 

Call or write for help, bug reports, licensing, etc. 



* constants — 

* built-in routines -- documented 



Load 

SetBnk 

SetLFS 



SetNam 



$FFD5 
$FF68 
$FFBA 



$FFBD 



* BASIC goodies 

JmpNEW = $AF84 
NewBS = $1E01 

SoftReset = $4003 
TxtTab = $2D 



* GRAFIX 80 routines 
Install = $1300 

* low-memory goodies 
FA = $BA 

* memory management 



Bankl 5 
MmuSCR 



%00000000 
$FF00 



load from file 

set load and filename banks 

set up logical file number, 

... device number, and 

. . . secondary address command 

set filename parameters 



does the NEW command 

where we move the start of 

. . . BASIC text to 

does a warm start 

pointer to start of BASIC text 



address of the GRAFIX 80 
. . . installation routine 



; current file primary address 



; configuration byte for Bank 15 
; always-available configuration 



Fig. 8-1. Source code for G80 Install. 
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1DA8: 48 

1DA9: 8A 

1DAA: 48 

1DAB: 98 

1DAC: 48 



1DAD: AD 00 FF 

1DB0: 48 



1DB1 : A9 00 
1DB3: 8D 00 FF 



1DB6: A9 01 

1DB8: 85 2D 

1DBA: A9 1E 

1DBC: 85 2E 



1DBE: A9 00 
1DC0: 8D 00 1E 



1DC3: 20 84 AF 



1DC6: A9 00 
1DC8: A2 00 
1DCA: 20 68 FF 



1DCD: A9 09 

1DCF: A2 F4 

1 DD1 : A0 1 D 

1DD3: 20 BD FF 
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64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 



* our codes 

DoLoad = 
LoadBank = 
NameBank = 
Nil 
SavdPosn = 







$FF 



register 



code for ROM's Load routine 
memory bank we'll Load to 
memory bank where filename is 
nice name for nothing 
secondary address command for 
... loading a file at its 
... saved-from position 



* Set Program Origin 

$1DA8 



ORG 



; a lovely little spot 
; 7592 in decimal form 



* Main 

* Main block of the installation program 

Main 

* save some registers 

PHA 
TXA 
PHA 
TYA 
PHA 

* save current memory configuration 

LDA MmuSCR ; grab it 

PHA ; park it on the stack 

* set memory configuration to Bank 1 5 

LDA #Bank1 5 

STA MmuSCR ; do it to it 

* set BASIC text start to new position 

LDA #<NewBS ; this preps us for NEW 

STA TxtTab 

LDA #>NewBS 

STA TxtTab+1 

* zero out the byte just before BASIC text 

LDA #0 ; also primes flag 

STA NewBS-1 

* do a BASIC NEW command 

JSR JmpNEW ; must enter with zero 
; ... flag primed 

* load in our object code file 

* set input memory banks 

LDA #LoadBank ; set bank to load file to 
LDX #NameBank ; set bank filename is in 
JSR SetBnk ; set input memory banks 

* set filename parameters 

LDA #:End-:TheFile j get length of file name 

LDX #<:TheFile ; point to the file name 

LDY #>:TheFile 

JSR SetNam ; set filename parameters 
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128 

129 * set logical file number, device number, and secondary 

130 * . . . address command 



logical file number not used 
. . . for Load command 
use current file device 
this secondary address command 
... sez to load the file at 
. . . its saved-f rom position 
set up LA, FA, and SA 



1DD6: A9 00 131 LDA #Nil 

132 
1DD8: A6 BA 133 LDX FA 

1DDA: A0 FF 134 LDY #SavdPosn 

135 

136 
1DDC: 20 BA FF 137 JSR SetLFS 

138 

139 * load that file 
1DDF: A9 00 140 LDA #DoLoad ; set code for a load 

1DE1: 20 D5 FF 141 JSR Load j load that file 

142 

143 * go do the GRAFIX 80 installation code 
1DE4: 20 00 13 144 JSR Install ; hop into it 

145 

146 * do a warm start of BASIC 
1DE7: 20 03 40 147 JSR SoftReset 

148 

149 * restore the entry memory configuration 
IDEA: 68 150 PLA ; remember, we parked it here 

1DEB: 8D 00 FF 151 STA MmuSCR 

152 

153 * restore some registers 
1DEE: 68 154 PLA 

1DEF: A8 155 TAY 

1DF0: 68 156 PLA 

1DF1: AA 157 TAX 

1DF2: 68 158 PLA 

159 

160 * return from Main 
1DF3: 60 161 RTS 

162 

163 

164 * local constants * 

165 
1DF4: 47 52 41 166 :TheFile TXT 'grafix 80' 
1DF7: 46 49 58 20 38 30 

167 :End 

— End assembly, 85 bytes, Errors: 



1 

2 * program identification * 

3 * * 

4 * GRAFIX 80 * 

5 * * 

6 * Provides BASIC 7.0 commands for 80 -column graphics. * 

7 * * 

8 * Commands are fully tokenized extensions to the BASIC * 

9 * 7.0 command set. They may be used in either direct * 

10 * or programmed mode. I've tried to keep the syntax * 

11 * and parameters close to BASIC'S VIC graphics commands. * 

12 * * 

13 * Sits in Bank RAM at $1300-$1D84. This simplifies * 

14 * the program. In real life, you might stick it in * 

15 * RAM 1, or on a cartridge. Since it overlaps the * 

Fig. 8-2. Source code for Grafix 80. 
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16 * normal starting point for BASIC program text, we do * 

17 * some re-arranging before loading/unloading our goodies. * 

18 * * 

19 * Also: don't use any VIC bitmap commands while these * 

20 * 80-column graphics commands are installed, since the * 

21 * code is sitting in the area BASIC uses for VIC bitmaps. * 

22 * * 

23 * Also #2: I've used four undocumented ROM routines for * 

24 * tokenizing chores and parsing BASIC command parameters. * 

25 * Why ? So this code wouldn't be even larger. In a * 

26 * commercial application, you'd include/rewrite these * 

27 * undoc'd routines in/for your code. But what if you * 

28 * just want to see this stuff run, and the friendly * 

29 * Commodore folks do some ROM changes? How to cope ? * 

30 * Well, the four routines are marked in the Constants * 

31 * section of the program. They're major routines, and * 

32 * experience with the C64 has shown that ROM changes will * 

33 * most likely only affect where they live. And so they * 

34 * can be found. See the text for ways to do that. * 

35 * * 

36 * The program is broken up into six source files : * 

37 * GRAFIX 80 0.S (this one) * 

38 * GRAFIX 80 1 .S * 

39 * GRAFIX 80 2. S * 

40 * GRAFIX 80 3. S * 

41 * GRAFIX 80 4.S * 

42 * GRAFIX 80 5. S * 

43 * * 

44 * To install the new commands : * 

45 * BLOAD "G80 INSTALL" * 

46 * SYS 7592 * 

47 * * 

48 * To remove the new commands : * 

49 * G80SCAT * 

50 * * 

51 * * 

52 * Here are the new commands : * 

53 * ( syntax is in the same style as in the BASIC 7.0 * 

54 * Encyclopedia section of Commodore's 128 * 

55 * System Guide ) * 

56 * * 

57 * G80BOX [color source], X1 , Y1 [, [X2, Y2][, paint]] * 

58 * * 

59 * source number can take on a value of 5 or 6 * 

60 * X1 ,Y1 give one corner of the box * 

61 * X2,Y2 (if present) give a second corner * 

62 * X1 and X2 must be in the range 0..639 * 

63 * Y1 and Y2 must be in the range 0.199 * 

64 * paint parameter tells whether box should be * 

65 * painted or not, must have value of or 1 * 

66 * * 

67 * Draws a box on the 80-column screen. Color source * 

68 * defaults to foreground. The second corner * 

69 * defaults to the current position of the graphics * 

70 * cursor. Paint defaults to don't paint. If set * 

71 * to paint, fills box with color source. Upon * 

72 * completion, the graphics cursor stays/goes at/to * 

73 * the second corner. * 

74 * * 

75 * color source 5 bitmap foreground (draws) * 

76 * color source 6 bitmap background (erases) * 

77 * paint do not paint * 

78 * paint 1 paint * 

79 * * 

80 * * 
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81 


* 


82 


* 


83 


* 


84 


* 


85 


* 


86 


* 


87 


* 


88 


* 


89 


* 


90 


* 


91 


* 


92 


* 


93 


* 


94 


* 


95 


* 


96 


* 


97 


* 


98 


* 


99 


* 


100 


* 


101 


* 


102 


* 


103 


* 


104 


* 


105 


* 


106 


* 


107 


* 


108 


* 


109 


* 


110 


* 


111 


* 


112 


* 


113 


* 


114 


* 


115 


* 


116 


* 


117 


* 


118 


* 


119 


* 


120 


* 


121 


* 


122 


* 


123 


* 


124 


* 


125 


* 


126 


* 


127 


* 


128 


* 


129 


* 


130 


* 


131 


* 


132 


* 


133 


* 


134 


* 


135 


* 


136 


* 


137 


* 


138 


* 


139 


* 


140 


* 


141 


* 


142 


* 


143 


* 


144 


* 


145 


* 



G80COLOR color source, color number * 

* 
color source can take on a value of 5 or 6 * 
color number can take on a value of 1..16 * 

* 
Sets colors for the 80-column bitmap's * 

foreground and background. If this command is * 
not given, default is white foreground on black * 
background. * 

* 

color source 5 bitmap foreground * 

color source 6 bitmap background * 

* 

color numbers the standard 80-column * 

colors, as specified in the COLOR section of * 
the BASIC 7.0 Encyclopedia mentioned above * 
(page 248) * 

* 

* 

G80DRAW [color source], XI , Y1 [TO X2,Y2] . . . * 

G80DRAW TO X1,Y1 [TOX2,Y2] ... * 

color source can take on a value of 5 or 6 * 
All X# and Y# are absolute screen coordinates * 
X# coordinates can be in the range 0..639 * 
Y# coordinates can be in the range . . 1 99 * 

* 
Draws individual points, lines, or connected lines * 
on the 80-column bitmap screen. Works mostly like * 
BASIC 7.0's DRAW command. Exceptions : the lack * 
of a relative coordinate option, and the need to * 
specify at least one coordinate point. The color * 
source defaults to 5 (drawing) upon entry to 80- * 
column graphics. After that, it defaults to the * 
color source used by the last G80DRAW command. * 
The graphics cursor ends up at the last point * 
drawn. When the second form is used (G80DRAW TO), * 
the line starts at the current location of the * 
graphics cursor. * 

color source 5 bitmap foreground (draws) * 

color source 6 bitmap background (erases) * 

* 
* 

G80GRAPHIC mode [, clear] * 

* 

mode can take on a value of 5 or 6 * 

clear can take on a value of or 1 * 

Puts the 80 column chip into one of two modes : * 

mode 5 80-column text * 

mode 6 640h x 200v bit-mapped graphics * 

* 

A clear parameter of doesn't clear the screen * 
when entering a mode. * 

A clear parameter of 1 clears the screen when * 
entering a mode. * 

If clear is unspecified, a value of is assumed. * 
A clear parameter of 1 when entering graphics mode * 
resets the graphics cursor to the upper-left * 
corner of the screen (the point 0,0). * 

* 
* 

G80SCAT * 

* 



75 



146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 



Removes the new commands. 
BASIC text area back down. 
in memory. 



Reclaims memory by setting * 
Erases any BASIC program * 



Version : 
Times tamp 



1 .00 
8:05 PM PST 



July 28, 1986 



Programmed by Stan Krute 

Copyright (C) 1986 by Stan Krute' s Hacker & Nerd 

18617 Camp Creek Road 
Hornbrook, California 96044 

All rights reserved 

Call or write for help, bug reports, licensing, etc. 



* Constants 



* BASIC 

TxtTab 
StdBS 



$2D 
$1C01 



pointer to start of BASIC text 
standard start of BASIC text 



* built-in routines — documented 



BSOut 
ChrGet 
ChrGot 
IndTxt 



Init80 
JmpNEW 
SoftReset = 
Swapper = 



$FFD2 
$0380 
$0386 
$03C9 



$FF62 
$AF84 
$4003 
$FF5F 



output a character 

get next character from text 

get current character from text 

get current character from text 

... no matter what the current 

. . . memory configuration is 

initialize 80 column screen 

does the NEW command 

does a BASIC warm start 

switch between 40 and 80 column 

. . . video displays 



* built-in routines — not documented 

* these are the ones that might move 

* see the text for dealing with such events 



FndComTxt = 
FndTknTxt = 
GetByt = 

GetWdByt = 

* colors 

Black = 
White 



$43E2 
$51 6A 
$87F4 
$8803 



routine that searches for 

BASIC command text 

routine that searches for 

BASIC command text 

gets a 1 -byte integer from 

. . . BASIC line 

gets a 2-byte integer and 

... a comma -separated 1 -byte 

. . . integer from BASIC line 



BASIC 7.0 code for black 
BASIC 7.0 code for white 



* Commodore ASCII codes 

Colon = $3A ; C-ASCII for a colon 
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211 


QuestMrk = 


$3F 


212 


Quotz = 


$22 


213 


ClearScrn = 


$93 


214 


Comma = 


$2C 


215 






216 






217 


* memory management 


218 






219 


MmuSCR 


$FF00 


220 






221 


Bankl 5 


%00000 


222 






223 






224 






225 


* page zero goodies 


226 






227 


SynTmp = 


$79 


228 


RunMod = 


$7F 


229 






230 






231 


Mode 


$D7 


232 






233 






234 


* sentinels 




235 






236 


Buffer End = 





237 






238 






239 


* system error 


codes 


240 






241 


SynErr = 


11 


242 


BadNum = 


14 


243 


DirOnly = 


34 


244 






245 






246 


* token stuff 




247 






248 


CmndOfst = 


$0D 


249 






250 






251 






252 


FETokFlg = 





253 






254 


TknTo = 


$A4 


255 


TknBox = 


$27 


256 


TknColor = 


$28 


257 


TknDraw = 


$29 


258 


TknGraphic = 


$2A 


259 


TknScat = 


$2B 


260 


TokenStart = 


$80 


261 


OurFirst = 


TknBox 


262 






263 


Our La st = 


TknSca 


264 






265 






266 






267 


* VDC (8563) 80-colum 


268 






269 


VDCAdr 


$D600 


270 


VDCDat 


$D601 


271 


AdrHiReg = 


18 


272 


ModeReg = 


25 


273 


ColReg = 


26 


274 


BytCntReg = 


30 


275 


DataReg = 


31 



C-ASCII for a question mark 
C-ASCII for a quotation mark 
C-ASCII for clearing the screen 
C-ASCII for a comma 



secondary MMU configuration 
. . . register 

memory configuration byte 
... to get a Bank 1 5 setup 



used for temporary goodies 
flags direct or 
. . . program-running mode 
. . . ( for direct ) 
flags 40 (bit 7 low) or 
80 (bit 7 high) columns 



; marks end of input buffer 



code for Syntax Error 
code for Illegal Quantity 
code for Direct Mode Only 



where the ROM crunching 

. . . routine leaves a command ' s 

. . . offset in its command 

. . . names table 

signals an FE token group to 

... the ROM's crunch routine 

total token for TO 

selector token for G80BOX 

selector token for G80COLOR 

selector token for G80DRAW 

selector token for G80GRAPHIC 

selector token for G80SCAT 

tokens start with this code 

first selector token for our 

... commands 

last selector token for our 

. . . commands 



VDC port address register 

VDC port data register 

VDC address ptr. hi byte reg. 

VDC mode register 

VDC color register 

VDC byte count register 

VDC data register 
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1300: 20 14 13 
1303: 20 2D 13 
1306: 20 46 13 



1309: 60 



130A: 
130D: 



20 5F 13 
20 6E 13 



1310: 20 7D 13 



276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 

288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 



* VDC (8563) 80-coluran text screen miscellany 



BitMapSiz = 
ScrWidth = 
HrzMax = 
BytPerLin = 
ScrHite = 
VrtMax 
Bakgrnd = 
Forgrnd = 
Text = 



* vectors 
IError = 

IEscEx 
IEscLk = 
IEscPr = 



16000 

640 

639 

80 

200 

199 

6 

5 

5 



$0300 
$0310 
$030C 
$030E 



size (bytes) of VDC bit map 
screen width in pixels 
maximum horizontal coordinate 
screen width in bytes 
screen height in pixels 
maximum vertical coordinate 
parameter code for background 
parameter code for foreground 
parameter code for text 



vector to the system's error 
. . . handler routine 
vector to late part of token 
. . . execution routine 
vector to early part of token 
. . . crunching routine 
vector to late part of token 
. . . un-crunching routine 



Macros 



* a nice pseudo-unconditional branch 
BRA MAC 

CLV 

BVC ]1 

<<< 



ORG $1 300 



Set Program Origin * 

; a lovely little spot 
; 4864 in decimal 



* Install * 

* Installs the 80 column graphics commands 



Install 

* do some installing 

JSR InsCrchDtr 

JSR InsOncrDtr 

JSR InsExecDtr 

* return from Install 

RTS 



; install a crunching detour 

; install an un-crunching detour 

; install an execution detour 



* Unlnstall 

* Uninstalls the 80 column graphics commands 

Unlnstall 

* do some uninstalling 

JSR RmvCrchDtr ; remove a crunching detour 
JSR RmvUncrDtr ; remove an un-crunching detour 
JSR RmvExecDtr ; remove an execution detour 



78 



1313: 60 



1314: 48 



1315: AD 0C 03 

1318: 8D 00 1D 

131B: AD OD 03 

131E: 8D 01 1D 



1321: A9 8C 

1323: 8D OC 03 

1326: A9 13 

1328: 8D OD 03 



132B: 68 



132C: 60 



132D: 48 



132E: AD OE 03 

1331: 8D 02 1D 

1334: AD OF 03 

1337: 8D 03 1D 



133A: A9 BC 
133C: 8D OE 03 
133P: A9 13 
1341: 8D OF 03 



1344: 68 



1345: 60 



341 
342 
343 
344 
345 
347 
348 
349 

>1 

>2 

>3 

>4 

>5 

>6 

>7 

>8 

>9 

>10 

>11 

>12 

>13 

>14 

>15 

>16 

>17 

>18 

>19 

>20 

>21 

>22 

>23 

>24 

>25 

>26 

>27 

>28 

>29 

>30 

>31 

>32 

>33 

>34 

>35 

>36 

>37 

>38 

>39 

>40 

>41 

>42 

>43 

>44 

>45 

>46 

>47 

>48 

>49 

>50 

>51 

>52 

>53 

>54 

>55 

>56 

>57 

>58 



* return from Unlnstall 
RTS 



TTL "GRAFIX 80 1.S" 
* Here Comes Another Source File 



PUT "GRAFIX 80 1 .S" 



* InsCrchDtr 

* Insert a little command crunching detour 

InsCrchDtr 

* save some registers 

PHA 

* save the regular command crunching vector 

LDA IEscLk 

STA ReglEscLk 

LDA IEscLk+1 

STA RegIEscLk+1 

* set command crunching vector to our little detour 

LDA #<IEscLkDetor 

STA IEscLk 

LDA #>IEscLkDetor 

STA IEscLk+1 

* restore some registers 

PLA 

* return from InsCrchDtr 

RTS 



* InsUncrDtr 

* Insert a little command un-crunching detour 

InsUncrDtr 

* save some registers 

PHA 

* save the regular command un-crunching vector 

LDA IEscPr 

STA ReglEscPr 

LDA IEscPr+1 

STA RegIEscPr+1 

* set command un-crunching vector to our little detour 

LDA #<IEscPrDetor 

STA IEscPr 

LDA #>IEscPrDetor 

STA IEscPr+1 

* restore some registers 

PLA 

* return from InsUncrDtr 

RTS 



InsExecDtr 
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1346: 48 



1347: 
134A: 
134D: 
1350: 



1353: 
1355: 
1358: 
135A: 



AD 10 03 

8D 04 1D 

AD 11 03 

8D 05 ID 



A9 D6 
8D 10 03 
A9 13 
8D 11 03 



135D: 68 



135E: 60 



135F: 48 



1360: 
1363: 
1366: 
1369: 



AD 00 1D 
8D 0C 03 
AD 01 1D 
8D OD 03 



136C: 68 



136D: 60 



136E: 48 



136F: 
1372: 
1375: 
1378: 



AD 02 1D 
8D OE 03 
AD 03 1D 
8D OF 03 



137B: 68 



137C: 60 



>59 

>60 

>61 

>62 

>63 

>64 

>65 

>66 

>67 

>68 

>69 

>70 

>71 

>72 

>73 

>74 

>75 

>76 

>77 

>78 

>79 

>80 

>81 

>82 

>83 

>84 

>85 

>86 

>87 

>88 

>89 

>90 

>91 

>92 

>93 

>94 

>95 

>96 

>97 

>98 

>99 

>100 

>101 

>102 

>103 

>104 

>105 

>106 

>107 

>108 

>109 

>1 10 

>111 

>112 

>1 1 3 

>114 

>115 

> 1 1 6 

>117 

>118 

>119 

>120 

>121 

>122 

>123 



* Insert a little command execution detour 

InsExecDtr 

* save some registers 

PHA 

* save the regular command execution vector 

LDA IEscEx ; save the regular vector 

STA ReglEscEx 

LDA IEscEx+1 

STA RegIEscEx+1 

* set command execution vector to our little detour 

LDA #<IEscExDetor 

STA IEscEx 

LDA #>IEscExDetor 

STA IEscEx+1 

* restore some registers 

PLA 

* return from InsExecDtr 

RTS 



* RmvCrchDtr 

* Remove a little command crunching detour 

RmvCrchDtr 

* save some registers 

PHA 

* restore the regular command crunching vector 

LDA ReglEscLk 

STA IEscLk 

LDA RegIEscLk+1 

STA IEscLk+1 

* restore some registers 

PLA 

* return from RmvCrchDtr 

RTS 



* RmvOncrDtr 

* Remove a little command un-crunching detour 

RmvUncrDtr 

* save some registers 

PHA 

* restore the regular command un-crunching vector 

LDA ReglEscPr 

STA IEscPr 

LDA RegIEscPr+1 

STA IEscPr +1 

* restore some registers 

PLA 

* return from InsOncrDtr 

RTS 
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137D: 48 



137E: AD 04 1D 

1381: 8D 10 03 

1384: AD 05 1D 

1387: 8D 11 03 



138A: 68 



138B: 60 



138C: 8D 06 1D 



138F 
1391 
1393 
1395 
1397 
1399 
139B 
139D 
139F 
13A1 



C9 00 
F0 22 
C9 3A 
FO 1E 
C9 3F 
FO 1A 
C9 80 
BO 16 
C9 22 
FO 12 



13A3: AO 07 

13A5: A9 1D 

13A7: 20 E2 43 

13AA: 90 09 



13AC: A2 00 
13AE: A9 A6 



13B0: 65 OD 



>124 
>125 
>126 
>127 
>128 
>129 
>130 
>131 
>132 
>133 
>134 
>135 
>136 
>1 37 
>138 
>139 
>140 
>141 
>142 
>143 
>1 44 
>145 
>146 
>147 
>148 
>149 
>150 
>151 
>152 
>153 
>154 
>155 
>156 
>157 
>158 
>159 
>160 
>161 
>162 
>163 
>164 
>165 
>166 
>167 
>168 
>1 69 
>170 
>171 
>172 
>173 
>174 
>175 
>176 
>177 
>178 
>179 
>180 
>181 
>182 
>183 
>184 
>185 
>186 
>187 
>188 



* RmvExecDtr 

* Remove a little command execution detour 

RmvExecDtr 

* save some registers 

PHA 

* restore the regular command execution vector 

LDA ReglEscEx 

STA IEscEx 

LDA RegIEscEx+1 

STA IEscEx+1 

* restore some registers 

PLA 

* return from InsExecDtr 

RTS 



IEscLkDetor 



A detour for token crunching 

Detects and crunches our new commands 

Upon entry, Accumulator holds a byte from program text 

Our new commands get reduced to double tokens : 

The lead-in token is $FE 

The selector tokens start at OurFirst ($27) 
If one of our commands is found, A & X are set up 
... for the ROM's continuation of the crunching process 



IEscLkDetor 

* save entry byte 

STA TheCode 

* run a number of screening tests 

:Test0 CMP #BufferEnd ; check for end of input buffer 

BEQ :NotOneOfOurs 

:Test1 CMP #Colon ; check for a colon 

BEQ :NotOneOfOurs 

:Test2 CMP #QuestMrk ; check for a question mark 

BEQ :NotOneOfOurs 

:Test3 CMP #TokenStart ; check for >= $80 

BCS :NotOneOfOurs 

:Test4 CMP #Quotz ; check for quotation mark 

BEQ :NotOneOfOurs 

* if we get here, we made it thru the screening tests 
:LetsSearch 

LDY 
LDA 
JSR 
BCC 



HKOurComsText 
fjl>OurComsText 
FndComTxt 
:NotOneOfOurs 



set A & Y to point to 
. . . our table of command 
( ... words and go search it 
not one of our commands 



* FndComTxt sets Carry if it found one of our commands 



* so we set up 
:ItsOneOfOurs 
LDX 
LDA 



for Crunch to do its crunching 

#FETokFlg ; X flags an $FE token 

IJlTokenStart+OurFirst-1 

the -1 is there 'cuz we got 
. . . here with the Carry set 
add the offset of the com'nd 



ADC CmndOfst 
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13B2: 18 
13B3: 90 04 



13B5: AD 06 1D 
13B8: 38 



13B9: 6C 00 ID 



A2 00 
DO 12 



13BC 

13BE 

13C0: C9 27 

13C2: 90 OE 

13C4: C9 2C 

13C6: BO OA 



13C8: 
13CA: 



69 59 

AA 



13CB: AO 07 
13CD: A9 1D 
13CP: 4C 6A 51 



13D2: 38 

13D3: 6C 02 1D 



13D6: C9 27 

13D8: DO 05 

13DA: 20 17 14 

13DD: 90 22 

13DF: C9 28 

13E1: DO 05 

13E3: 20 72 15 



>189 

>190 

>191 

>192 

>193 

>194 

>195 

>196 

>197 

>198 

>199 

>200 

>201 

>202 

>203 

>204 

>205 

>206 

>207 

>208 

>209 

>210 

>211 

>212 

>213 

>214 

>215 

>216 

>217 

>218 

>219 

>220 

>221 

>222 

>223 

>224 

>225 

>226 

>227 

>228 

>229 

>230 

>231 

>232 

>233 

>234 

>235 

>236 

>237 

>238 

>239 

>240 

>241 

>242 

>243 

>244 

>245 

>246 

>247 

>248 

>249 

>250 

>251 

>252 

>253 



CLC 
BCC 



:GoReglar 



... as found in our 0-based 
. . . table of command names 
set flag for IEscLk branch 
and jump back in 



* if we get here, it's not one of our commands 
:NotOneOfOurs 

LDA TheCode ', restore character 

SEC ; set flag for IEscLk branch 

* everybody jumps to the regular vector 
:GoReglar JMP (ReglEscLk) 



IEscPrDetor 



* A detour for token un-crunching 

* Detects and un-crunches our new commands 

* Upon entry, X holds code for FE or CE lead-in token 

* and A holds selector token 



IEscPrDetor 

* run some tests 

:Tst1 LDX #FETokFlg 

BNE :NotOurTkn 

:Tst2 CMP #OurFirst 

BCC : NotOurTkn 

:Tst3 CMP #OurLast+1 

BCS :N6t0urTkn 



our commands start with FE 
not ours, so bag it 
is it in our selector range ? 
if not, bag it 



* deal with one of our tokens 

* set parameters and jump to a ROM un-crunching routine 
:ItsOurTkn ; we come in with Carry clear 

ADC #TokenStart-OurFirst ; set up X to index 
TAX ; ... our selector tokens 

; ... with base at TokenStart 
LDY #<OurComsText; set A & Y to point to table 
LDA #>OurComsText; ... of our commands' text 
JMP FndTknTxt ; ... and jump to ROM 

; ... un-crunching routine 

* deal with a token that's not ours 

* set signal and jump to regular vector 



: NotOurTkn 

SEC 
JMP 



(ReglEscPr) 



signal not ours 

; slide back in to ROM 



* IEscExDetor 

* Detour for token! zed command execution routine 

* Main token is $FE, selector token is in A- register 
IEscExDetor 



* run some tests 

:Tst1 CMP #TknBox 
BNE :Tst2 
JSR DoG80Box 
BCC :GoneZo1 



is it G80BOX command ? 

if not, next test 

it is, so hop to it 

if we make it back, always 



:Tst2 CMP tfTknColor ; is it G80COLOR command 7 
BNE :Tst3 ; if not, next test 
JSR DoG80Color ; it is, so bop to it 



82 



13E6: 90 19 >254 BCC :GoneZo1 ; if we make it back, always 

>255 
13E8: C9 29 >256 :Tst3 CMP #TknDraw ; is it G80DRAW command ? 
13EA: DO 05 >257 BNE :Tst4 ; if not, next test 

13EC: 20 F9 15 >258 JSR DoG80Draw ; it is, so flop to it 

13EF: 90 10 >259 BCC :GoneZo1 ; if we make it back, always 

>260 
13F1: C9 2A >261 :Tst4 CMP #TknGraphic ; is it G80GRAPHIC c'mnd ? 
13F3: DO 05 >262 BNE :Tst5 ; if not, next test 

13F5: 20 93 17 >263 JSR DoG80Graphic; it is, so cop to it 

13F8: 90 07 >264 BCC :GoneZo1 ; if we make it back, always 

>265 
13FA: C9 2B >266 :Tst5 CMP #TknScat ; is it G80SCAT command ? 
13FC: DO 04 >267 BNE :NotOurs ; if not, not ours to do 

13FE: 20 45 18 >268 JSR DoG80Scat ; it is, so mop to it 

>269 

>270 * return from carrying out one of our commands 
1401: 60 >271 :GoneZo1 RTS ; the carry is clear 

>272 

>273 

>274 * return if it wasn't one of our commands 
1402: 38 >275 :NotOurs SEC ; signal error if not our token 

1403: 6C 04 1D >276 :GoneZo2 JMP (ReglEscEx); dive back into execution 

>277 ; ... routine 

>278 

>279 

>280 * CommaCruz * 

>281 

>282 * Parses through required commas in a BASIC input line 

>283 

>284 * Makes sure a comma is there, then gets next 

>285 * ... line element 

>286 

>287 * If no comma's there, "Syntax Error" 

>288 

>289 * Upon successful exit : A- reg holds result of a ChrGet 

>290 * Y- reg set to 

>291 

>292 * Inspired by an undocumented C-128 ROM routine 

>293 

>294 CommaCruz 

>295 * go grab current BASIC text character of interest 
1406: A0 00 >296 LDY #0 ; set Y- reg for IndTxt call 

1408: 20 C9 03 >297 JSR IndTxt ; grab byte of BASIC line 

>298 

>299 * is it a comma ? 
140B: C9 2C >300 CMP #Comma 

>301 

>302 * if not, signal a syntax error 
140D: DO 03 >303 BNE :NotOkay 

>304 

>305 * 'twas a comma, so get next BASIC line element and 

>306 * ... return 
140F: 4C 80 03 >307 :Okay JMP ChrGet 

>308 

>309 

>310 * no comma, so signal a syntax error and return 
1412: A2 0B > 31 1 :NotOkay LDX #SynErr ; send out "Syntax Error" 
1414: 6C 00 03 >312 JMP (IError) ; ... and return 

350 TTL "GRAFIX 80 2.S" 

352 * Here Comes Another Source File * 

353 

354 POT "GRAFIX 80 2.S" 

>1 

>2 

>3 * DoGSOBox * 
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1417: 
141 A: 

141D: 
141F: 

1422: 
1423: 



1424: 
1426: 



20 2E 
20 84 
BO 05 
20 CE 

18 
60 



A2 OE 
6C 00 



14 

14 

14 



03 



1429: 


00 


142A: 


00 


142B: 


00 


142C: 


00 


142D: 


00 



142E: 
1430: 



A9 00 
8D 2D 



14 



1433: 20 80 03 



1436: 
1438: 



143A: 
143C: 



143E: 
1441: 
1444: 



C9 2C 
DO 04 



A2 05 
DO 03 



20 F4 
8E 29 
20 06 



87 



14 



14 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 



* Deals with the G80Box command 



DoG80Box 



JSR G8BoxGtPs ; fetch any command parameters 

JSR G8BoxChPs ; check legality of parameters 

BCS :BadParams ; branch if there's a problem 

JSR G8BoxDoIt ; carry out the command 



:OkeDoke CLC 
RTS 

: BadParams 

LDX 
JMP 



G8BxSrc DS 
G8BxPlVt DS 
G8BxP1Lo DS 

G8BxP1Hi DS 

G8BxPtFg DS 



#BadNum 
( IError ) 



signal that all went well 
return from DoG80Box 



; signal 'illegal quantity' 



- Variables for G80BOX command * 

1 ; color source parameter for 

. . . G80BOX command 

1 ; vertical coordinate for first 

. . . point in G80BOX command 

1 ; horizontal lo-byte coordinate 

. . . for first point in 
. . . G80BOX command 
horizontal hi-byte coordinate 
. . . for first point in 
. . . G80BOX command 
paint /no paint flag for the 
. . . G80BOX command 



* G8BoxGtPs * 

* Fetch any command parameters for the G80Box command 

* Since we use ROM parsing, assume all registers scrambled 

G8BoxGtPs 

* default paint parameter to "no paint" 

LDA #0 

STA G8BxPtFg 

* get next element in BASIC statement after G80BOX 

JSR ChrGet 

* is it a comma, signifying default color source ? 

CMP jjfComma ; a little comparison test 

BNE :FechSrc ; no, so fetch the source param. 

* it is a comma, so default color source to foreground 

LDX illForgrnd ; get the non-zero code 
BNE :StorSrc ; always branch to store 

* get the color source from the command line 
:FechSrc JSR GetByt ; it's a byte-sized integer 

* store the color source 

:StorSrc STX G8BxSrc ; store it 

* cruise through a comma 

JSR CommaCruz ; if it's not there, syntax error 



84 



1447: 20 03 88 

144A: 8E 2A 14 

m 

144D: A6 16 

144F: 8E 2B 14 

1452: A6 17 

1454: 8E 2C 14 



1457: 20 86 03 
145A: F0 27 



145C: 20 06 14 



145F: C9 2C 
1461: FO 10 



1463: 20 03 88 



1466: 
1469: 
146B: 
146E: 
1470: 



1473: 
1476: 



1479: 
147C: 



147E: 
1480: 



8E 76 16 
A6 16 
8E 74 16 
A6 17 
8E 75 16 



20 D7 1C 

8E 2D 14 



20 86 03 
FO 05 



A2 OB 
6C 00 03 



1483: 60 



69 
70 
71 
72 
73 
74 
75 
76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 



* get first point data from the BASIC line 



JSR GetWdByt 



get word- length horizontal 
coord, and byte-length 
vertical 



* store the first point data 

STX G8BxP1Vt ; store the vertical coord. 

; ... don't worry about top/botto 



LDX 
STX 

LDX 
STX 



$16 
G8BXP1LO 

$17 
G8BxP1Hi 



. . . correctness right now 
holds horiz. coord, lo-byte 
store it — for now, we don't 
. . . worry about left/right 
holds horiz. coord, hi -byte 



* now, see if there's more parameters to the command 

JSR ChrGot ; get current BASIC line object 
BEQ :Bye ; if command end, git out 

* there's more on the line, so continue parsing 

JSR CommaCruz ; make sure there ' s a comma 
; ... after first point 

* see if next BASIC line object is a comma indicating 

* ... no second point data 

CMP #Comma ; is it a comma ? 
BEQ :LukPnt ; yup, so go look for paint 
; ... parameter 

* it's not a comma, so fetch 2nd point data from BASIC line 
:SecPnt JSR GetWdByt ; get word-length horizontal 

coord, and byte-length 
vertical 

* store the 2nd point data as new grafix cursor coords. 

store the vertical coord, 
holds horiz. coord, lo-byte 
store it 

holds horiz. coord, hi -byte 
store it 

* see if there ' s a paint parameter 
:LukPnt JSR OptNxtByt ; go look for a small integer 



STX 


GCVrt 


LDX 


$16 


STX 


GCHrzLo 


LDX 


$17 


STX 


GCHrzHi 



STX G8BxPtFg 



and store it as paint flag 



* make sure there's nothing else left on the line 

JSR ChrGot ; check current line item 
BEQ :Bye ; at end, so all's well 

* too much stuff in command, so do a "Syntax Error" 

LDX #SynErr ; get the error code 

JMP (IError) ; go to the error handler 



* so long 
:Bye 



RTS 



; return from GSBoxGtPs 



* G8BoxChPs 

* Check legality of parameters for the G80Box command 

G8BoxChPs 

* save some registers 
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1484: 48 



1485: 
1488: 
148A: 
148C: 
148E: 



1490: 
1493: 
1495: 

1497: 
149A: 
149C: 



149E: 
14A1 : 
14A3: 
14A5: 
14A7: 
14AA: 
14 AC: 

14AE: 
14B1: 
14B3: 
14B5: 
14B7: 
14BA: 
14BC: 



14BE: 
14C1: 
14C3; 
14C4: 

14C6: 



14C8: 

14C9: 



AD 29 14 
C9 05 
F0 04 
C9 06 

DO 3B 



AD 2A 14 
C9 C8 
BO 34 



AD 76 
C9 C8 
BO 2D 



14CC: 
14CD: 



16 



AD 2C 14 
C9 02 
90 09 
DO 24 
AD 2B 14 
C9 80 
BO 1D 

AD 75 16 
C9 02 
90 09 
DO 14 
AD 74 
C9 80 
BO OD 



16 



AD 2D 14 
FO 05 
38 

E9 01 
DO 03 



18 
90 01 



14CB: 38 



68 
60 



14CE: 
14CF: 



48 
8A 



>133 
>134 
>135 
>136 
>137 
>138 
>139 
>140 
>141 
>1 42 
>143 
>144 
>145 
>146 
>1 47 
>148 
>149 
>150 
>151 
>152 
>153 
>154 
>155 
>156 
>157 
>158 
>159 
>160 
>161 
>162 
>163 
>164 
>165 
>166 
>167 
>168 
>169 
>170 
>171 
>172 
>173 
>174 
>175 
>176 
>177 
>178 
>179 
>180 
>181 
>182 
>183 
>184 
>185 
>186 
>187 
>188 
>189 
>190 
>191 
>192 
>193 
>194 
>195 
>196 
>1 97 



PHA 



* check color source 



LDA 


G8BxSrc 


CMP 


#Forgrnd 


BEQ 


:VerTest 


CMP 


#Bakgrnd 


BNE 


: NoGood 



get color source parameter 
Is it set for foreground ? 
if so, on to next test 
is it set for background ? 
if neither fore- nor back- 
... we have a problem 



* check out vertical coordinates 

:VerTest LDA G8BxP1Vt ; check out a vertical param. 
CMP #VrtMax+1 ; is it <= the max ? 
BCS : NoGood ; no, so we have a problem 

LDA GCVrt ; check out a vertical param. 

CMP #VrtMax+1 ; is it <= the max ? 

BCS : NoGood ; no, so we have a problem 

* check out horizontal coordinates 



LDA 
CMP 
BCC 
BNE 
LDA 
CMP 
BCS 

:2ndHorz LDA 
CMP 
BCC 
BNE 
LDA 
CMP 
BCS 



G8BXP1 Hi 
#>HrzMax 
: 2ndHorz 
: NoGood 
G8BXP1 Lo 
#<HrzMax+1 
: NoGood 

GCHrzHi 

#>HrzMax 

:PtFgTst 

: NoGood 

GCHrzLo 

#<HrzMax+1 

: NoGood 



check hi byte first 

is it < the hi max ? 

yep, so go on 

if it's > the hi max 

if hi byte = max, check lo 

is it <= the lo max ? 

no, so no good parm. 

check hi byte first 

is it < the hi max ? 

yep, so on to the next test 

if it's > the hi max 

if hi byte = max, check lo 

is it <= the lo max ? 

no, so no good parm. 



* check out paint flag 

:PtFgTst LDA G8BxPtFg ; grab the flag 

BEQ :OkeDoke ; is okay 

SEC ; so is 1 
SBC #1 

BNE : NoGood ; other values are no good 

* if we get here, all was well 

:OkeDoke CLC ; signal that params. are okay 

BCC :Bye ; ... and return 

* if we get here, there was a problem 

: NoGood SEC ; signal that there's a problem 

; ... with the params. and return 

* restore some registers and leave 
: Bye PLA 



RTS 



; return from G8BoxChPs 



* G8BoxDoIt 

* Carry out the G80Box command 

G8BoxDoIt 

* save some registers 

PHA 
TXA 



14D0: 48 



1 4D1 : AD 00 FF 

14D4: 48 

14D5: A9 00 

14D7: 8D 00 FF 



14DA: 38 
14DB: AD 29 14 
14DE: E9 06 
14E0: 8D F9 1C 



14E3: 
14E6: 



14E8: 
14EB: 



14EE: 
14F1: 



AD 2D 
DO 21 



AD 
20 



14F4: AD 
14F7: AE 
14FA: 20 



2B 
2C 
56 



1506: 
1507: 



B8 
50 



1509: 38 

150A: AD 2A 

150D: ED 76 

1510: 90 08 



1512: AE 
1515: 8E 
1518: BO 



151A: 
151C: 



49 
69 



14 



2A 14 
34 15 



AD 76 16 
20 34 15 



14FD: AD 74 16 
1500: AE 75 16 
1503: 20 56 15 



23 



76 
2A 
04 



FF 
01 



>198 
>199 
>200 
>201 
>202 
>203 
>204 
>205 
>206 
>207 
>208 
>209 
>210 
>211 
>212 
>213 
>214 
>215 
>216 
>217 
>218 
>219 
>220 
>221 
>222 
>223 
>224 
>225 
>226 
>227 
>228 
>229 
>230 
>231 
>232 
>233 
>234 
>235 
>236 
>237 
>237 
>237 
>237 
>238 
>239 
>240 
>241 
>242 
>243 
>244 
>245 
>246 
>247 
>248 
>249 
>250 
>251 
>252 
>253 
>254 
>255 
>256 
>257 
>258 
>259 



PHA 

* make sure we're in Bank 15 memory configuration 

save current configuration 
... on the stack 
then set to Bank 1 5 



LDA 


MmuSCR 


PHA 




LDA 


#Bank1 5 


STA 


MmuSCR 



* set up for draw or erase 

SEC 

LDA G8BxSrc 
SBC #Bakgrnd 
STA OnOrOff 

* branch on paint flag 

LDA G8BxPtFg 
BNE : Paint 



; prepare to subtract 

; foreground or background 

; adjust to $FF or $00 



; means not to paint 
; 1 means to paint 



** draw an outlined box 
:NoPaint 

* draw first horizontal line 

LDA G8BxP1Vt 
JSR :Horiz 

* draw second horizontal line 

LDA GCVrt 
JSR :Horiz 

* draw first vertical line 

LDA G8BXP1 Lo 
LDX G8BXP1 Hi 
JSR :Verti 

* draw second vertical line 

LDA GCHrzLo 
LDX GCHrzHi 
JSR :Verti 



* and leave 
BRA 
CLV 
BVC 
<<< 



:Bye 
:Bye 



** draw a filled-in box 
: Paint 

* figure out which vertical coordinate is highest on 

* ... the screen, and what the height of the box is 

SEC ; prepare to subtract 

LDA G8BxP1Vt j one vertical coordinate 

SBC GCVrt j the other vert, coord. 

BCC :P1VtHi ;if G8BxP1Vt is higher on screen 

* GCVrt is highest on the screen (and Carry's set) 
:GCVrtHi LDX GCVrt ; it'll be the starting point 

STX G8BxPlVt ; so store it 
BCS :MovHit ; always branches 

* G8BxP1Vt is highest on the screen (and Carry's clear) 
:P1VtHi EOR #$FF ; get absolute value of 

ADC #1 ; . . . vertical coord, difference 

* A-reg now holds box height less 1 



87 











>260 


151E 


AA 






>261 


151F 


E8 






>262 
>263 

>264 


1520 


AD 


2A 


14 


>265 


1523 


20 


34 


15 


'266 
>267 


1526 


EE 


2A 


14 


•268 


1529 


CA 






>269 


152A 


DO 


F4 




>270 
►271 
• 272 


152C 


68 






>273 


152D 


8D 


00 


FF 


>274 
>275 


1530 


68 






► 276 


1531 


AA 






•277 


1532 


68 






>278 
279 


1533 


60 






280 

281 

282 

►283 

284 

>285 

286 

• 287 

•288 

•289 


1534 


8D 


FC 


1C 


>290 


1537 


8D 


FF 


1C 


► 291 


153A 


AD 


2B 


14 


292 


153D 


8D 


FA 


1C 


>293 


1540 


AD 


2C 


14 


>294 


1543 


8D 


FB 


1C 


>295 


1546 


AD 


74 


16 


• 296 


1549 


8D 


FD 


1C 


>297 


154C 


AD 


75 


16 


• 298 


154F 


8D 


FE 


1C 


'299 


1552 


20 


83 


18 


>300 


1555 


60 






• 301 
>302 
•303 

• 304 

• 305 

• 306 
•307 
► 308 


1556 


8D 


FA 


1C 


• 309 


1559 


8D 


FD 


1C 


•310 


155C 


8E 


FB 


1C 


► 311 


155F 


8E 


FE 


1C 


► 312 


1562 


AD 


76 


16 


► 313 


1565 


. 8D 


FC 


1C 


► 314 


1568 


AD 


2A 


14 


► 315 


156B 


8D 


FF 


1C 


► 316 


156E 


20 


83 


18 


► 317 


1571 


60 






► 318 

► 319 

► 320 

► 321 

► 322 

► 323 

► 324 



* we'll use that value as a loop counter 
:MovHit TAX ? move height-1 into X 



INX 



now it's height straight 



* the line drawing loop that'll paint a filled box 



: PtLup 



LDA 
JSR 

INC 
DEX 

BNE 



G8BxP1Vt 
:Horiz 

G8BxP1Vt 

: PtLup 



* say good night 
: Bye PLA 



STA MmuSCR 

PLA 
TAX 
PLA 

RTS 



set the vertical coord. 
ah, the usefulness of a 
... well-designed subrout. 
move down the screen 
down the counter 
go 'til we ground out 



restore entry memory config. 
we put it on the stack 

restore some registers 



return from G8BoxDoIt 



* local subroutines for GSBoxDoIt 

* :Horiz 

* draws one of a box's horizontal lines 

* enter with vertical coordinate in A- register 



:Horiz 



STA 


VrtO 


STA 


Vrt1 


LDA 


G8BXP1 Lo 


STA 


HrzOLo 


LDA 


G8BxP1Hi 


STA 


HrzOHi 


LDA 


GCHrzLo 


STA 


HrzlLo 


LDA 


GCHrzHi 


STA 


HrzlHi 


JSR 


DoLine 


RTS 





set vertical coordinates 
set one horizontal coord. 



set other horizontal coord. 



draw the horizontal line 
return from :Horiz 



* :Verti 

* draws one of a box's vertical lines 

* enter with horizontal coordinate in A- and X- 



regs. 



:Verti 



STA 


HrzOLo 


STA 


HrzlLo 


STX 


HrzOHi 


STX 


HrzlHi 


LDA 


GCVrt 


STA 


VrtO 


LDA 


G8BxP1Vt 


STA 


Vrt1 


JSR 


DoLine 


RTS 





set horizontal coordinates 



set one vertical coord. 

set other vertical coord. 

draw the vertical line 
return from :Verti 



* DoG80Color 

* Deals with the G80COLOR command 
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1572: 20 86 15 

1575: 20 99 15 

1578: BO 05 

157A: 20 B6 15 

157D: 18 

157E: 60 



157F: A2 OE 
1581: 6C 00 03 



1584: 00 
1585: 00 



1586: 20 80 03 
1589: 20 F4 87 
158C: 8E 84 15 



158F: 20 06 14 

1592: 20 F4 87 

1595: 8E 85 15 

1598: 60 



1599: 48 
159A: 8A 
159B: 48 



159C: 
159E: 
15A1: 
15A3: 
15A4: 
15A7: 



A2 
EC 
FO 
E8 
EC 
DO 



05 
84 
06 

84 
08 



15 



15 



15A9: AE 85 15 

15AC: CA 

15AD: EO 10 

15AF: 90 01 



325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 



DoG80Color 

JSR 
JSR 
BCS 
JSR 

:OkeDoke CLC 
RTS 

:BadParams 

LDX 
JMP 



GSColSrc DS 
G8ColNum DS 



G8ColGtPs 
G8ColChPs 
:BadParams 
G8ColDoIt 



#BadNum 
( I Error ) 



fetch any command parameters 
check legality of parameters 
branch if there's a problem 
carry out the command 

signal that all went well 
return from DoG80Color 



signal 'illegal quantity' 



Variables for G80COLOR command * 



color source parameter for 
. . . G80COLOR command 
color number parameter for 
. . . G80COLOR command 



* G8ColGtPs * 

* Fetch any command parameters for G80COLOR command 

* Since we use ROM parsing, assume all registers scrambled 

G8ColGtPs 

* get the color source parameter 

JSR ChrGet ; get next BASIC line element 

JSR GetByt ; fetch a small integer 

STX G8ColSrc ; save as color source parameter 

* get the color number parameter 

JSR CommaCruz ; cruise thru required comma 

JSR GetByt ; fetch a small integer 

STX G8ColNum ; save as color number parameter 



RTS 



; return from G8ColGtPs 



* G8ColChPs 

* Check legality of parameters for G80COLOR command 

G8ColChPs 

* save some registers 

PHA 
TXA 
PHA 



* test color source parameter 



:Test1 LDX #Forgrnd 

CPX G8ColSrc 

BEQ :Test3 

:Test2 INX 

CPX G8ColSrc 

BNE : BadParms 



code for 80-column foreground 

was it that ? 

if so, test next parameter 

code for 80-column background 

was it that ? 

if not, error condition 



* test color number parameter 

:Test3 LDX G8ColNum ; now, test color number 

DEX ; adjust into easier test state 

CPX #16 ; was number in the range 1..16 ? 
BCC :ByeBye ; yes, so return with signal set 
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15B1: 38 



15B2: 
15B3: 
15B4: 



68 
AA 
68 



15B5: 60 



15B6: 
15B7: 
15B8: 
15B9: 
15BA: 



15BB: 
15BE: 
15BF: 
15C1: 



15C4; 
15C7: 
15C8: 
15CB: 



15CE: 
15D1: 
15D2: 

15D4: 
15D5: 



15D7: 
15DA: 
15DB: 
15DC: 
15DD: 



48 
8A 
48 
98 
48 



AD 00 FF 
48 

A9 00 
8D 00 FF 



AE 85 15 

CA 

BD 71 1D 

8D 85 15 



AD 84 15 

38 

E9 05 

A8 

DO OA 



AD 85 15 
OA 

OA 
OA 
OA 



15DE: 8D 85 15 



15E1: A2 1A 
15E3: 20 CB 1C 
15E6: 39 32 1D 
15E9: OD 85 15 



390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 
451 
452 
453 
454 



; ... for okayed params. 

* if we get here, something was amiss 

: BadParms 

SEC ; set signal for 'illegal 

; ... quantity' error 

* restore some registers and leave 
: ByeBye PLA 

TAX 
PLA 



RTS 



; return from G8ColChPs 



* G8ColDoIt 



* carry out the G80COLOR command 

* upon entry, there's a legal source number in G8ColSrc 

* there's a legal color number in G8ColNum 

G8ColDoIt 

* save some registers 

PHA 
TXA 
PHA 
TYA 
PHA 

* make sure we're in Bank 15 memory configuration 



LDA 
PHA 
LDA 

STA 



MmuSCR 

#Bank1 5 

MmuSCR 



save current configuration 
... on the stack 
then set to Bank 1 5 



* fetch the appropriate 80-column color nibble 

LDX G8ColNum ; grab the BASIC color number 
DEX ; put into indexing range . . 1 5 

LDA HuNb80Tb,X ; grab the proper nibble 
STA G8ColNum ; park the nibble value 

* adjust color source value for indexing 



LDA 
SEC 
SBC 

TAY 

BNE 



G8ColSrc 



#Forgrnd 



: Adjust 



get the source 

prepare for subtraction 

put into range . . 1 for 

. . . indexing chores 

move adjusted source to Y reg. 

branch if doing background 



* setting foreground, so move color nibble into 

* ... hi bits of byte 

* remember, it's parked on the stack 

LDA G8ColNum ; for foreground, move the 

ASL ; ... color number into the 

ASL ; ... high nibble 

ASL 

ASL 

STA G8ColNum 

: Adjust 

* adjust the VDC color byte 

LDX #ColReg ; get current color values 

JSR VDCRegPeek : ... from the VDC register 

AND HueNbMsk,Y ; mask out the desired nibble 

ORA G8ColNum ; OR in the desired color nibble 
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15F8: 60 



15F9: 20 77 16 



15EC: 20 BD 1C >455 

>456 

>457 

15EF: 68 >458 

15F0: 8D 00 FF >459 

>460 

>461 

15F3: 68 >462 

15F4: A8 >463 

15F5: 68 >464 

15F6: AA >465 

15F7: 68 >466 

>467 

>468 

355 

357 
358 
359 
>1 
>2 
>3 
>4 
>5 
>6 
>7 
>8 
>9 
>10 
>11 
>12 
>13 
>14 
>15 
>16 
>17 
>18 
>19 
>20 
>21 
>22 
>23 
>24 
>25 
>26 
>27 
>28 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
>29 
>30 
>31 
1675: 00 >32 
>33 
1676: 00 >34 
>35 



15FC: 
15FF: 
1601: 
1604: 

1607: 
1608: 



1609: 
160B: 



160E 
160F 
1610 
1611 
1614 
161C 
1624 
162C 
1634 
163C 
1644 
164C 
1654 
165C 
1664 
166C 



20 E7 16 
BO 08 
20 22 17 
20 3C 17 

18 
60 



A2 OE 
6C 00 03 



00 
00 
00 

00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 



JSR VDCRegPoke ; set the VDC color byte 

* restore entry memory configuration 

PLA ; remember, it's on the stack 

STA MmuSCR 

* restore some registers and leave 

PLA 
TAY 
PLA 
TAX 
PLA 

RTS ; return from G8ColDoIt command 
TTL "GRAFIX 80 3.S" 
* Here Comes Another Source File * 



PUT "GRAFIX 80 3.S" 



* DoG80Draw 

* Implements the G80DRAH command 



DoG80Draw 



JSR G8DrwGtPs 



:Bye 



JSR 
BCS 
JSR 
JSR 

CLC 
RTS 



: BadParams 

LDX 
JMP 



G8DrwChPs 
: BadParams 
GSAjGrfCrs 
G8DrwDoIt 



#BadNum 
(IError) 



fetch any command parameters 
(they're put into a list) 
check legality of parameters 
branch if there's a problem 
adjust graphics cursor 
carry out the command 

signal that all went well 
return from DoGSODraw 



signal 'illegal quantity' 



* Variables for G80DRAW command * 



1674: 00 



G8DrwSrc DS 
G8DLPts DS 
G8DLNdx DS 
G8DrwLst DS 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 

GCHrzLo DS 

GCHrzHi DS 

GCVrt DS 



1 
1 
1 
99 



color source for G80DRAW 
number of points in draw-list 
indexes open slot in draw-list 
draw-list : holds up to 33 



. . . points 

graphics cursor horizontal 

... lo byte 

graphics cursor horizontal 

...hi byte 

graphics cursor vertical 
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1677: 



167A: 



167D: 
167F: 



1681: 
1683s 
1685: 
1687: 



1689s 
168CS 



20 B6 
20 80 



C9 A4 
F0 14 



C9 2C 
DO 04 
A2 05 
DO 03 



20 F4 
8E OE 



168FS 20 06 



1692: 
1693: 



1695s 
1698: 
169A: 
169Ds 
169F: 
16A2: 



B8 
50 13 



AD 74 
85 16 
AD 75 
85 17 
AE 76 
20 C9 



16A5s 20 80 



16A8: 

16AB: 



20 03 
20 C9 



16AE: 20 86 



16B1: 
16B3: 



C9 A4 
FO FO 



>36 
>37 
>38 
>39 
>40 
>41 
>42 
>43 
>44 
>45 
>46 
>47 

16 >48 
>49 
>50 

03 >51 
>52 
>53 
>54 
>55 
>56 
>57 
>58 
>59 
>60 
>61 
>62 
>63 
>64 

87 >65 
16 >66 

>67 
>68 

14 >69 
>70 
>70 
>70 
>70 
>71 
>72 
>73 
>74 

16 >75 
>76 

16 >77 
>78 

16 >79 

16 >80 
>81 

03 >82 
>83 
>84 
>85 

88 >86 
>87 
>88 

16 >89 
>90 
>91 

03 >92 
>93 
>94 
>95 
>96 
>97 



DLPntr 



$FA 



a zero-page pointer to the 
... draw-list 



G8DrwGtPs * 



* Fetch any command parameters for G80DRAW command 

* Put points in a point list 

* Since it uses ROM parsing, assume all registers scrambled 

G8DrwGtPs 

* initialize a nice, clean point list 

JSR initPntLst 

* get next element in BASIC statement 

JSR ChrGet 

* determine whether command is G80DRAW or G80DRAW TO 

CMP #TknTo ; is it G80DRAW TO . . . ? 
BEQ sDrawTo ; if so, branch 

sJustDraw 5 if not, it's just G80DRAW 

* do they want the default color source ? 

CMP #Comma ; is first element a comma ? 

BNE sFechSrc ; no, so fetch a source 

LDX #Forgrnd : yes, so default to foreground 

BNE sStorSrc ; always branch to store 

* get the color source from command line 

SFechSrc JSR GetByt : it's a byte- si zed integer 
sStorSrc STX G8DrwSrc ; store it 



* cruise through a comma 
JSR CommaCruz 
BRA sGetPntLn 
CLV 

BVC sGetPntLn 
<<< 



if not there, syntax error 
then git on down to point 



nabbing 



SDrawTo J it's a G80DRAW TO command 

* store graphics cursor position as first point 

LDA GCHrzLo ; just feed graphics cursor 

STA $16 J . . . position to the 

LDA GCHrzHi ; ... StorPntLst routine 

STA $1 7 

LDX GCVrt 

JSR StorPntLst ; that stores it 

sGetLnElm JSR ChrGet ; get next element from BASIC 

: ... line 
. : GetPntLn 

* get a point from BASIC line 



JSR GetWdByt 



JSR 



StorPntLst 



* look for a TO 

JSR ChrGot 



CMP 

BEQ 



#TknTo 
SGetLnElm 



get word- length horizontal 
... coord, and byte-length 
. . . vertical 
store point in list 



get current element from 

. . . BASIC input line 

is it the TO token ? 

if so, look for another pair 

... of point coordinates 
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16B5 


: 60 




>98 
>99 
>100 




RTS » if not, return from G8DrwGtPs 








>101 


* 










>102 












>103 

>1 04 


* 


Initialize a fresh, clean, blank point list 








>105 


InitPntLst 








>106 


* 


save registers 


16B6: 


48 




>107 
>108 




PHA 








>109 


* 


reset length and index 


16B7: 


A9 00 




>110 




LDA #0 


16B9: 


8D OF 


ie 


>111 




STA G8DLPts ; no points in the list yet 


16BC: 


8D 10 


1« 


>112 

>113 




STA G8DLNdx ; 0th slot is next to fill 








>114 


* 


reset the draw list pointer to beginning of list 


1 6BF: 


A9 11 




>115 




LDA #<G8DrwLst ; put the lo and hi 


16C1 : 


85 FA 




>116 




STA DLPntr ; ... bytes into the 


16C3: 
16C5: 


A9 16 
85 FB 




>1 17 

>118 
>119 




LDA #>G8DrwLst ; ... zero-page pointer 
STA DLPntr+1 








>120 


* 


restore registers and leave 


16C7: 


68 




>121 
>122 




PLA 


16C8: 


60 




>123 
>124 
>125 




RTS ; return from InitPntLst 








>126 


*. 










>127 












>128 


* 


Store a point's coordinates in our point list 








>129 












>130 


* 


Upon entry : $16 holds horizontal coordinate lo-byte 








>131 


* 


$17 holds horizontal coordinate hi-byte 








>132 


* 


X reg. holds vertical coordinate 








>133 


* 


DLPntr points to the list of points 








>134 


* 


G8DLNdx indexes next open slot in the list 








>135 


* 


G8DLPts counts points in the list 








>136 












>137 


StorPntLst 








>138 


*■ 


save some registers 


16C9: 


48 




>139 




PHA 


16CA: 


98 




>140 




TYA 


16CB: 


48 




>141 
>142 




PHA 








>143 


* 


add horizontal coordinate to list 


16CC: 


A5 16 




>1 44 




LDA $16 ; get horizontal lo-byte 


16CE: 


AC 10 


16 


>145 




LDY G8DLNdx ; get our list indexer 


16D1: 


91 FA 




>146 




STA ( DLPntr ),Y ; add to list 


16D3: 


C8 




>147 
>148 




INY ; up the indexer 


16D4: 


A5 17 




>149 




LDA $17 ; get horizontal hi-byte 


16D6: 


91 FA 




>150 




STA ( DLPntr ),Y ; add to list 


16D8: 


C8 




>151 
>152 




INY ; up the indexer 








>153 


* 


add vertical coordinate to list 


16D9: 


8A 




>154 




TXA ; vertical coord, next 


16DA: 


91 FA 




>155 




STA ( DLPntr ),Y ; add to list 


16DC: 


C8 




>156 
>157 




INY ; up the indexer 








>158 


* 


store the changed list indexer 


16DD: 


8C 10 


16 


>159 
>160 




STY G8DLNdx 








>161 


* 


increment the point counter 


16E0: 


EE OF 


16 


>162 




INC G8DLPts 
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16E3: 
16E4: 
16E5: 



68 
A8 
68 



16E6: 60 



16E7: 
16E8: 
16E9: 
16EA: 
16EB: 



16EC: 
16EF: 
16F1: 
16F3: 
16F5: 



16F7: 
16FA: 



16FC: 
16FE: 
1700: 



48 
8A 
48 
98 
48 



AD 0E 
C9 05 
FO 04 
C9 06 
DO 24 



AE OF 
AO 01 



16 



16 



B1 FA 
C9 02 
90 OA 



1702: DO 17 



1704: 


88 




1705: 


B1 


FA 


1707: 


C9 


80 


1709: 


BO 


10 


170B: 


C8 




170C: 


C8 




170D: 


B1 


FA 


170F: 


C9 


C8 


1711: 


BO 


08 



1713: 
1714: 
1715: 
1716: 



C8 
C8 
CA 
DO E4 



1718: 18 



>163 

>164 

>165 

>166 

>167 

>168 

>169 

>170 

>171 

>172 

>173 

>174 

>175 

>176 

>177 

>178 

>179 

>180 

>181 

>182 

>183 

>184 

>185 

>186 

>187 

>188 

>189 

>190 

>191 

>192 

>193 

>194 

>195 

>196 

>197 

>198 

>199 

>200 

>201 

>202 

>203 

>204 

>205 

>206 

>207 

>208 

>209 

>210 

>211 

>212 

>213 

>214 

>215 

>216 

>217 

>218 

>219 

>220 

>221 

>222 

>223 

>224 

>225 

>226 

>227 



* restore some registers and leave 
PLA 
TAY 
PLA 



RTS 



; return from StorPntLst 



* G8DrwChPs 

* Check legality of parameters for G80DRAW command 

G8DrwChPs 

* save some registers 

PHA 

TXA 
PHA 
TYA 
PHA 

* check out value of source parameter 



LDA 
CMP 

BEQ 
CMP 

BNE 



G8DrwSrc 

#Forgrnd 

:ChkLst 

#Bakgrnd 

:BadPs 



grab it 

it can be foreground or 

. . . background 

; if neither, bad parms. 



* loop to check all points in the point list 

* prepare for looping 

:ChkLst LDX G8DLPts ; get number of points 

LDY #1 } initialize our indexer 



* top of loop 

* check a horizontal coordinate 
:HChkOne 

LDA (DLPntr),Y 
CMP #>ScrWidth 
BCC :VChkOne 



BNE 



:BadPs 



compare hi -byte of horiz. 
... coord, with screen width 
if less than, horz. point's 
... okay, so check vertical 
if greater than, itza nogudski 



:HChkTwo 



DEY 
LDA 
CMP 
BCS 
INY 



hi bytes match, check lo bytes 
slide back to horz. lo byte 



( DLPntr ) , Y 

#<ScrWidth ; check it out 



:BadPs 



has to be less than for kosher 
slide indexer back 



* check a vertical coordinate 

:VChkOne INY ; move up to vertical value 

LDA ( DLPntr ),Y 

CMP #ScrHite ; check against screen height 
BCS :BadPs ; again, has to be less than 

* the point's coordinates were okay, so test for 

* ... loop doneness 

:OkPnt ; the point passed muster 

INY ; up the indexer 

INY 

DEX ; count another point done 

BNE :HChkOne ; if all not done, branch 

* we get here if all parameters were okay 
:OkayPs CLC ; signal okay parameters 
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1719: 90 01 >228 BCC :Bye ; skip next instruction 

>229 

>230 * we get here if there was a problem 

171 Bs 38 >231 :BadPs SEC ; signal bad parameters 

>232 

>233 * restore some registers and leave 

171C: 68 >234 :Bye PLA 

171D: A8 >235 TAY 

171E: 68 >236 PLA 

171F: AA >237 TAX 

1720: 68 >238 PLA 

>239 

1721 : 60 >240 RTS ; return from G8DrwChPs 
>241 
>242 

>243 * G8AjGrfCrs 



>244 

>245 * Adjust the graphics cursor for the draw command 
>246 

>247 * Set it to the last point of the about-to-drawn point list 

>249 * Done before the actual drawing to make life easier for 

>250 * all of us. 
>251 

>252 G8AjGrfCrs 

>253 * save some registers 

1722: 48 >254 pha 

1723: 8A >255 TXA 

1724: 48 >256 pha 

1725: 98 >257 TYA 

1726: 48 >258 PHA 

>259 

>260 * locate last entry on point list 

HI 7 '' A £ 10 16 >2 f! LDY GSDLNdx ; points to 1 past last entry 

1/,iA: 88 >262 DEY ; now points to last entry's 

n->t> »-> «-, >2 ^2 ' ••• vertical coordinate 

172B: A2 02 >264 LDX §2 ; it'll index into cursor 

>265 

>266 * transfer that point's three bytes to graphics cursor 

ill~'' ?!!*,. > l¥ :Lu P T °P LDA (DLPntr),Y ; get a byte of last point 

HIV ! D 74 16 >2 , 68 STA GCHrzLo,X ; store it as a byte of GC 

1732: 88 >269 DEY ; down the indexes 

1733: CA >270 DEX 

1734: 10 F7 >271 BPL :LupTop ; move three bytes 

>272 

>273 * restore some registers and leave 

1736: 68 >274 PLA 

1737: A8 >275 TAY 

1738: 68 >276 PLA 

1739: AA >277 TAX 

173A: 68 >278 PLA 

>279 

173B: 60 >280 RTS ; return from G8AjGrfCrs 

>281 

>282 

>283 * - G8DrwDoIt * 

>284 

>285 * Carry out the G80DRAW command 

>286 

>287 G8DrwDoIt 

>288 * save some registers 

173C: 48 >289 PHA 

173D: 8A >290 TXA 

173E: 48 >291 PHA 

173F: 98 >292 TYA 
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1740: 48 



1741 : 
1744: 
1745: 
1747: 



174A: 
174D: 



174F: 
1750: 
1753: 
1755: 



1758: 
1759: 



AD 00 FF 
48 

A9 00 
8D 00 FF 



AE OF 16 
FO 3A 



38 

AD OE 16 
E9 06 
8D F9 1C 



CA 
FO 1E 



175B: AO 05 

175D: B1 FA 

175F: 99 FA 1C 
1762: 88 

1763: 10 F8 



1765: 20 83 18 



1768: 


CA 




1769: 


FO 


1E 


176B: 


18 




176C: 


A9 


03 


176E: 


65 


FA 


1770: 


85 


FA 


1772: 


90 


02 


1774: 


E6 


FB 


1776: 


B8 




1777: 


50 


E2 



1779: 


AO 


02 




177B: 


B1 


FA 




177D: 


99 


FA 


1C 


1780: 


88 






1781: 


10 


F8 





1783: 20 17 1C 
1786: 20 67 1C 



>293 

>294 

>295 

>296 

>297 

>298 

>299 

>300 

>301 

>302 

>303 

>304 

>305 

>306 

>307 

>308 

>309 

>310 

>311 

>312 

>313 

>314 

>315 

>316 

>317 

>318 

>319 

>320 

>321 

>322 

>323 

>324 

>325 

>326 

>327 

>328 

>329 

>330 

>331 

>332 

>333 

>334 

>335 

>336 

>337 

>338 

>339 

>340 

>341 

>341 

>341 

>341 

>342 

>343 

>344 

>345 

>346 

>347 

>348 

>349 

>350 

>351 

>352 

>353 

>354 



PHA 



* play with memory configuration 



LDA 


MmuSCR ; 


PHA 




LDA 


#0 ; 


STA 


MmuSCR 



save current memory config. 

... on the stack 

make sure we ' re in Bank 1 5 



* see if there are any points to draw 

LDX G8DLPts ; X holds # of points in list 
BEQ :Bye ; no points to draw 



* there ARE points to draw 
SEC 

LDA GSDrwSrc 
SBC #Bakgrnd 
STA OnOrOff 



set up to draw or erase 
foreground source draws, 
. . . background source erases 
bit 7 of this variable 
. . . indicates source 



* branch if just one point to draw 

DEX ; just 1 point to draw ? 

BEQ :SolePoint ; if so, do it 

* there's 1 or more line segments to draw 

* X holds number of line segments 

* transfer the line's coordinates for function call 
:CordStor 

LDY #5 ; 6 bytes of coords, to store 

:CordLup LDA ( DLPntr ),Y ; get a byte 

STA Hrz0Lo,Y ; store it 
DEY 

BPL :CordLup 



* call the line drawer 
JSR DoLine 



; draw that line 



* check for more line segments 

DEX ; decrement the point counter 

BEQ :Bye J when it hits zero, we done 

* move our list pointer along 

CLC 



LDA 
ADC 
STA 
BCC 
INC 
: more BRA 
CLV 
BVC 
<<< 



#3 

DLPntr 

DLPntr 

:more 

DLPntr +1 

:CordStor 

: CordStor 



; always branch back up 



* draw a single point 
:SolePoint 

LDY 
:SetPnt LDA 

STA 
DEY 
BPL 



#2 ; index into point data 
(DLPntr), Y ; grab some point data 
Hrz0Lo,Y ; transfer it 



JSR 
JSR 



:SetPnt 

FigPoint 
Plotlt 



; go 'til all transferred 

; prepare to plot 
; plot 



* all done drawing 
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1789: 
178A: 



178D: 
178E: 
178F: 
1790: 
1791: 



1793: 
1796: 
1799: 
179B: 

179E: 
179F: 



17A0: 
17A2: 



17A5: 
17A6: 



17A7: 
17AA: 
17 AD: 



17B0: 
17B3: 



68 
8D 00 



68 
A8 
68 
AA 
68 



1792: 60 



20 A7 
20 B7 
BO 05 
20 D7 

18 
60 



A2 OE 
6C 00 



00 
00 



20 80 
20 F4 
8E A5 



20 D7 
8E A6 



17B6: 60 



17B7: 48 



>355 
>356 
>357 
FF >358 
>359 
>360 
>361 
>362 
>363 
>364 
>365 
>366 
>367 
>368 
>369 
>370 
>371 
>372 
>373 
>374 
17 >375 
17 >376 
>377 
17 >378 
>379 
>380 
>381 
>382 
>383 
>384 
03 >385 
>386 
>387 
>388 
>389 
>390 
>391 
>392 
>393 
>394 
>395 
>396 
>397 
>398 
>399 
>400 
>401 
03 >402 
87 >403 
17 >404 
>405 
>406 
1C >407 
17 >408 
>409 
>410 
>411 
>412 
>413 
>414 
>415 
>416 
>417 
>418 
>419 



:Bye 

* restore entry memory configuration 

PLA 

STA MmuSCR 

* restore some registers and leave 

PLA 
TAY 
PLA 
TAX 
PLA 



RTS 



return from G8DrwDoIt 



* DoGSOGraphic 

* Implements the G80GRAPHIC command 

DoG80Graphic 

JSR G8GrfGtPs ; fetch any command parameters 

JSR GSGrfChPs ', check legality of parameters 

BCS :BadParams ; branch if there's a problem 

JSR G8GrfDoIt ; carry out the command 



CLC 
RTS 

: BadParams 

LDX 

JMP 



G8GrMod DS 
G8GrClr DS 



#BadNum 
( IError ) 



signal that all went well 
return from DoG80Color 



signal 'illegal quantity' 



- Variables for G80GRAPHIC command * 

1 ; mode parameter for G80GRAPHIC 

1 ; clear parameter for G80GRAPHIC 



G8GrfGtPs 



* Fetch any command parameters for G80GRAPHIC command 

* Since we use ROM parsing, assume all registers scrambled 



G8GrfGtPs 

* get mode parameter 
JSR ChrGet 
JSR GetByt 
STX G8GrMod 



; get next BASIC line element 
; get a byte-sized parameter 
; and store it 



* get optional clear parameter 

JSR OptNxtByt ; get optional byte-sized param. 
STX G8GrClr ; and store it 



RTS 



; return from G8GrfGtPs 



* G8GrfChPs 

* Check legality of parameters for G80GRAPHIC command 

G8GrfChPs 

* save some registers 

PHA 
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17B8: 
17B9: 



17BA: 
17BC: 
17BF: 
17C1: 
17C2: 
17C5: 



8A 
48 



A2 

EC 
FO 
E8 
EC 
DO 



05 
A5 
06 

A5 
08 



17C7: AE A6 

17CA: FO 06 

17CC: CA 

17CD: FO 03 



17CF: 38 
17D0: BO 01 

17D2: 18 



17D3: 68 

17D4: AA 

17D5: 68 

17D6: 60 



17 



17 



17 



17D7: 
17D8: 
17D9: 
17DA: 
17DB: 



17DC: 
17DF: 
17E0: 
17E2: 



17E5: 
17E8: 
17E9: 
17EB: 



17EC: 
17EE: 



48 
8A 
48 
98 
48 



AD 00 FF 
48 

A9 00 
8D 00 FF 



AD A5 17 
38 

E9 05 
A8 



A2 19 
20 CB 1C 



17F1: 39 2E 1D 



>420 

>421 

>422 

>423 

>424 

>425 

>426 

>427 

>428 

>429 

>430 

>431 

>432 

>433 

>434 

>435 

>436 

>437 

>438 

>439 

>440 

>441 

>442 

>443 

>444 

>445 

>446 

>447 

>448 

>449 

>450 

>451 

>452 

>453 

>454 

>455 

>456 

>457 

>458 

>459 

>460 

>461 

>462 

>463 

>464 

>465 

>466 

>467 

>468 

>469 

>470 

>471 

>472 

>473 

>474 

>475 

>476 

>477 

>478 

>479 

>480 

>481 

>482 

>483 

>484 



TXA 
PHA 

* test mode parameter 
:Test1 LDX tffText 

CPX G8GrMod 

BEQ :Test3 
: Test 2 INX 

CPX G8GrMod 

BNE : BadParms 

* test clear parameter 
:Test3 LDX G8GrClr 

BEQ :OKParms 

DEX 

BEQ :OKParms 



code for 80-column text 

was it that ? 

if so, test next parameter 

code for 80-column graphics 

was it that ? 

if not, error condition 



now, test clear parameter 
is an okay parameter 



so is 1 



* if we get here, something's wackoso 
: BadParms 

SEC ? set signal for 'illegal 

; quantity' error 

BCS :Bye ; always branches 



* if we get here, all's well 
:OKParms CLC ; 



set signal for okay 



* restore some registers and leave 

:Bye PLA ; restore registers 

TAX 
PLA 



RTS 



return from G8ColChPs 



* G8GrfDoIt 

* Carry out the G80GRAPHIC command 

G8GrfDoIt 

* save some registers 

PHA 
TXA 
PHA 
TYA 
PHA 



* adjust memory configuration 



LDA 
PHA 
LDA 
STA 



MmuSCR 

#Bank1 5 
MmuSCR 



save current configuration 

... on the stack 

move into memory bank 1 5 



* turn graphics mode value into an index 



LDA 
SEC 
SBC 
TAY 



G8GrMod 
(ilText 



adjust the mode into an index 
subtract 5 , so it goes to . . 1 
0-text 1-grafix 
we'll use the mode to index 
. . . into some tables 



* adjust text and attribute bits 

LDX #ModeReg ; get current setting 
JSR VDCRegPeek 



AND 



VAndMsks,Y; turn on textor disable 
; ... attributes 
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17F4: 19 30 1D 
17F7: 20 BD 1C 



17FA: 
17FB: 
17FE: 



1803: 
1804: 



1806 
1808 
180B 
180D 
1810 
1812 
1815 
1818 
181A 
181D 
181F 
1822 



1825: 
1828: 



182A: 
182D: 
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8D A5 17 

DO 06 



1800: 20 62 FF 



B8 
50 1F 



A9 05 
8D OE 16 
A9 02 
8D 85 15 
A9 05 
8D 84 15 
20 B6 15 
A9 01 
8D 85 15 
A9 06 
8D 84 15 
20 B6 15 



AD A6 17 
FO 11 



AD A5 17 
DO 06 



182F: 20 DO 1B 



1832: 
1833: 



B8 
50 06 



1835: 
1838: 



183B: 
183C: 



20 EE 1B 
20 75 18 



68 

8D 00 FF 



183F: 
1840: 
1841: 
1842: 



68 
A8 
68 
AA 



>485 

>486 

>487 

>488 

>489 

>490 

>491 

>492 

>493 

>494 

>495 

>496 

>497 

>498 

>499 

>499 

>499 

>499 

>500 

>501 

>502 

>503 

>504 

>505 

>506 

>507 

>508 

>509 

>510 

>511 

>512 

>513 

>514 

>515 

>516 

>517 

>518 

>519 

>520 

>521 

>522 

>523 

>524 

>525 

>526 

>526 

>526 

>526 

>527 

>528 

>529 

>530 

>531 

>532 

>533 

>534 

>535 

>536 

>537 

>538 

>539 

>540 

>541 

>542 

>543 



ORA VOrMsks,Y ; enable attributes or turn on 
; ... grafix 

JSR VDCRegPoke ; put the adjusted setting 
; ... back in its reg. 

initialize things according to mode 



TYA 
STA 

BNE 



G8GrMod 
:GrfOnly 



sets flags for testing 

. . . and saves a copy of mode 

grafix mode branches 



* do some initialization for text mode only 
:TxtOnly JSR Init80 ; copy character set into 

; ... VDC ' s RAM memory 

BRA :ClrChk ; and branch 

CLV 

BVC :ClrChk 



do some command initialization for graphics mode only 



:GrfOnly LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 



#Forgrnd 

G8DrwSrc 

(White 

G8ColNum 

#Forgrnd 

G8ColSrc 

G8ColDoIt 

#Black 

G8ColNum 

#Bakgrnd 

G8ColSrc 

G8ColDoIt 



default G80DRAW to draw, 

. . . not erase 

default to white foreground 



; default to black background 



* see if we have to do some clearing 

:ClrChk LDA G8GrClr ; check out the clear parameter 
BEQ :Bye ; zero sez 'no need to clear' 

* see if we're to clear text or graphics 
:DoClr LDA G8GrMod ; get mode index back 

BNE :ClrGraf ; branch for graphics 

* clear 80 -column text 
:ClrTxt 

JSR ClrTx80 

BRA : Bye 

CLV 

BVC :Bye 

<<< 

* clear 80-column graphics 
:ClrGraf 

JSR ClrGr80 
JSR IntGrfCrs 



clear 80-column text 
skip next instructions 



clear 80-column graphics 
initialize the 80-column 
. . . graphics cursor 



* clean up and leave 

* restore entry memory configuration 
: Bye PLA 

STA MmuSCR 

* restore some registers and leave 

PLA 
TAY 
PLA 
TAX 
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1843: 


68 






>544 
>545 


1844: 


60 






>546 
>547 
>548 
>549 
>550 
>551 
>552 
>553 
>554 
>555 
>556 
>557 


1845: 


A5 


7F 




>558 


1847: 


F0 


05 




>559 
>560 
>561 


1849: 


A2 


22 




>562 


184B: 


6C 


00 


03 


>563 
>564 
>565 
>566 


184E: 


A9 


05 




>567 


1850: 


8D 


A5 


17 


>568 


1853: 


A9 


01 




>569 


1855: 


8D 


A6 


17 


>570 


1858: 


20 


D7 


17 


>571 
>572 
>573 


185B: 


20 


OA 


13 


>574 
>575 
>576 
>577 


185E: 


A9 


00 




>578 


1860: 


8D 


00 


1C 


>579 
>580 
>581 


1863: 


A9 


01 




>582 


1865: 


85 


2D 




>583 


1867: 


A9 


1C 




>584 


1869: 


85 


2E 




>585 
>586 
>587 


186B: 


A9 


00 




>588 


186D: 


20 


84 


AF 


>589 
>590 
>591 


1870: 


20 


03 


40 


>592 
>593 
>594 


1873: 


18 






>595 


1874: 


60 






>596 
360 
362 
363 
364 

>1 

>2 

>3 

>4 

>5 

>6 

>7 

>8 



PLA 
RTS 



; return from G8GrfDoIt 



* DoG80Scat 

* Implements the G80SCAT command 

* Assume all registers trashed 
DoG80Scat 

* make sure we're in direct mode 

LDA RunMod ; check for direct or program 
BEQ :Okay ; zero flags direct mode 

* not in direct mode, so signal an error 

LDX #DirOnly ; code for "Direct Mode Only" 
JMP (IError) ; jump to the error handler 

* make sure 80 column screen is set back to text 

* ... by doing a G80GRAPHIC 5,1 command 
:Okay LDA #5 

STA G8GrMod 

LDA #1 

STA G8GrClr 

JSR G8GrfDoIt 

* then uninstall the new commands 

JSR Uninstall 

* set BASIC back in space 

* zero out the byte just before BASIC text 

LDA #0 

STA StdBS-1 

* set BASIC text start to standard position 

LDA #<StdBS 

STA TxtTab 

LDA #>StdBS 

STA TxtTab+1 



* do a BASIC NEW command 

LDA #0 
JSR JmpNEW 

* do a warm start of BASIC 

JSR SoftReset 



; prep zero flag for NEW 
; go do it 



* git on out 

CLC ; signal that all went well 

RTS ; return from DoG80Scat 

TTL "GRAFIX 80 4.S" 

* Here Comes Another Source File * 

PUT "GRAFIX 80 4.S" 



♦ IntGrfCrs 

* Initialize the 80-column graphics cursor 

IntGrfCrs 

* save some registers 
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1875: 48 



1876: 
1878: 
187B: 
187E: 



1881 : 
1882: 



A9 00 
8D 74 
8D 75 
8D 76 



68 
60 



1883: 
1884: 
1885: 



1886: 
1889: 
188C: 
188E: 
1891: 
1894: 



48 
8A 
48 



AD FA 
CD FD 
DO OE 
AD FB 
CD FE 
DO 06 



1899: 
189A: 



B8 
50 



189C: 
189F: 
18A2: 
18A4: 

18A6: 
18A9: 
18AC: 

18AE: 
1 8B1 : 
18B4: 

18B7: 
18BA: 
18BD: 
18C0: 



AD FE 
CD FB 
90 OA 
DO 29 

AE FD 
EC FA 
BO 21 

AE FB 
8D FB 
8E FE 

AD FA 
AE FD 
8E FA 
8D FD 



16 
16 
16 



1C 
1C 

1C 

1C 



1896: 20 E4 18 



44 



1C 
1C 



1C 
1C 



1C 
1C 
1C 

1C 
1C 
1C 
1C 



>9 

>10 

>11 

>12 

>13 

>14 

>15 

>16 

>17 

>18 

>19 

>20 

>21 

>22 

>23 

>24 

>25 

>26 

>27 

>28 

>29 

>30 

>31 

>32 

>33 

>34 

>35 

>36 

>37 

>38 

>39 

>40 

>41 

>42 

>43 

>44 

>45 

>45 

>45 

>45 

>46 

>47 

>48 

>49 

>50 

>51 

>52 

>53 

>54 

>55 

>56 

>57 

>58 

>59 

>60 

>61 

>62 

>63 

>64 

>65 

>66 

>67 

>68 

>69 

>70 



PHA 

* do it to it 

LDA #0 ; the initializing value 

STA GCHrzLo ; set 'em up 

STA GCHrzHi 

STA GCVrt 

* restore some registers and leave 

PLA 



RTS 



; return from IntGrfCrs 



* DoLine 

* Draws lines 

* Upon entry, endpoints of line are stored in HrzOLo, 

* HrzOHi, VrtO, HrzlLo, HrzlHi, Vrt1 

DoLine 

* save some registers 

PHA 
TXA 
PHA 

* if vertical line, special case it 



:TstVrt 



LDA 
CMP 
BNE 
LDA 
CMP 
BNE 



:Vertcal JSR 
BRA 
CLV 
BVC 
<<< 



HrzOLo 

HrzlLo 

:AdjEPs 

HrzOHi 

HrzlHi 

:AdjEPs 

Dover t 
:Bye 

:Bye 



if horizontal coordinates 
... match, it's vertical 
not vertical, so branch 



; we had a match, so verticalize 
; and get on out 



* adjust endpoints (if necessary) 

* this way, calls to the horizontal and sloped line 

* drawers get the first point leftmost, second point 

* rightmost 



:AdjEPs LDA 
CMP 
BCC 

BNE 



:AdTs2 



LDX 
CPX 

BCS 



: EndAdj LDX 
STA 
STX 

LDA 
LDX 
STX 
STA 



HrzlHi 
HrzOHi 
: EndAdj 
:TstHrz 

HrzlLo 
HrzOLo 
:TstHrz 

HrzOHi 
HrzOHi 
HrzlHi 

HrzOLo 
HrzlLo 
HrzOLo 
HrzlLo 



start by comparing horz. 

... hi bytes 

do adjustment 

no adjustment needed, so go on 

hi bytes equal, so test 

... lo bytes 

no adjustment needed if 

. . . greater than or equal 

swap endpoints 

first, horizontal hi bytes 



; now horizontal lo bytes 
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18C3: AD FF 1C 

18C6: AE FC 1C 

18C9: 8D FC 1C 

18CC: 8E FF 1C 



18CF: AD FF 1C 

18D2: CD FC 1C 

18D5: DO 06 

18D7: 20 1B 19 

18DA: B8 

18DB: 50 03 



18DD: 20 46 1A 



18E0: 68 
1 8E1 : AA 
18E2: 68 



18E3: 60 



18E4: 

18E5: 
18E6: 



18E7: 
18E8: 
18EB: 

18EE: 

18F0: 
18F2: 

18F4: 
18F5: 
18F7: 
18FA: 



18FD: 

t 

1900: 
1901: 



1903: 
1904: 
1907: 



48 
8A 
48 



38 

AD FC 1C 
ED FF 1C 
BO 04 

49 FF 
69 01 

AA 

90 06 
AD FF 1C 
8D FC 1C 



20 17 1C 



E8 

DO OE 



18 

AD F4 1C 

69 50 



71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

82 

82 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 
125 
126 
127 
128 
129 
130 
131 



LDA Vrt1 

LDX VrtO 

STA VrtO 

STX Vrt1 



; now vertical bytes 



* not vertical 
:TstHrz LDA 
CMP 

BNE 



— is it horizontal ? 



:Hrzntal JSR 
BRA 
CLV 
BVC :Bye 
<<< 



Vrt1 ; if vertical coordinates 

VrtO ; ... match, it's horizontal 

:Sloped ; not horizontal, so branch 

DoHorz ; we had a match, so go do it 

:Bye ; and get on out 



* neither vertical nor horizontal — it's sloped 

* we use a version of Bresenham's algorithm on these 



: Sloped JSR DoBres 



draw all other lines 



* restore some registers and leave 
: Bye PLA 
TAX 

PLA 



RTS 



return from DoLine 



* DoVert * 

* Draws vertical lines on the 80 -column screen 

DoVert 

* save some registers 

PHA 
TXA 
PHA 

* figure topmost point and change in verticality (delta Y) 



SEC 
LDA 
SBC 
BCS 

: StartO EOR 
ADC 

:Start1 TAX 
BCC 
LDA 

STA 



VrtO 
Vrt1 
:Start1 

#$FF 
#1 



prepare for subtraction 
; subtract one from the other 

? if result positive, branch 

; get absolute value of delta Y 
; remember, Carry's clear 



; absolute value into X 
:PlotFirst ; want lowest value in VrtO 
Vrt1 
VrtO 



* plot the first point 
:PlotFirst 

JSR FigPoint 



INX 
BNE 



:VPlot 



; figure out stuff for first poin 

; ... HrzO and VrtO 

; up so it can come down 

; and branch always to plot it 



* adjust the address of the target byte — down 1 line 
:NxtVPt CLC ; prepare to add 

LDA BtByLo ; get current byte address 
ADC SBytPerLin ; add a line's worth of bytes 
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1909: 


8D 


F4 


1C ) 


132 






STA 


BtByLo 




190C: 


90 


03 




133 






BCC 


:VPlot 




190E: 


EE 


F5 


1C > 


134 
135 
136 


* 


plot a 


INC 
pixel 


BtByHi 




1911: 


20 


67 


1C ) 


137 


:VPlot 


JSR 


Plotlt 


; plot pixel 










138 




















139 


* 


see if 


we're 


done yet 




1914: 


CA 






140 


:VTest 


DEX 




; one more pixel done 


1915: 


DO 


EC 




141 
142 






BNE 


:NxtVPt 


; go until down to zero 










143 


* 


restore some 


registers 


and leave 


1917: 


68 






144 


:Bye 


PLA 






1918: 


AA 






145 






TAX 






1919: 


68 






146 
147 






PLA 






191A: 


60 






148 
.149 






RTS 




; return from DoVert 










► 150 

► 151 

>152 


$ 


































>153 


* 


Draws 


horizontal lines 


on the 80 -column screen 










► 154 




















► 155 


* 


Upon entry, 


first point is leftmost, second point is 










•156 


* 


rightmost 














► 157 




















► 158 


DoHorz 
















► 159 


* 


save some re 


gisters 




191B: 


48 






► 160 






PHA 






191C: 


8A 






► 161 






TXA 






191D: 


48 






► 162 






PHA 






191E: 


98 






► 163 






TYA 






191F: 


48 






► 164 

► 165 






PHA 














► 166 


* 


figure 


delta 


X — line length is delta X plus one 


1920: 


38 






► 167 






SEC 




; subtract leftmost point from 


1921: 


AD 


FD 


1C 


► 168 






LDA 


HrzlLo 


; ... rightmost point 


1924: 


ED 


FA 


1C 


► 169 






SBC 


HrzOLo 




1927: 


8D 


2F 


1A 


► 170 






STA 


:DXLo 


; store result at :DXLo-:DXHi 


192A: 


AD 


FE 


1C 


► 171 






LDA 


HrzlHi 




192D: 


ED 


FB 


1C 


► 172 






SBC 


HrzOHi 




1930: 


8D 


30 


1A 


► 173 

► 174 






STA 


:DXHi 












>175 


* 


figure 


out initial drawing information for leftmost point 


1933: 


20 


17 


1C 


► 176 

► 177 






JSR 


FigPoint 


; set up to draw 










► 178 


* 


figure 


out right pixel 


index 


1936: 


AD 


FD 


1C 


► 179 






LDA 


HrzlLo 


; take right horizontal 


1939: 


29 


07 




>180 






AND 


#7 


; ... position mod 8 


193B: 


8D 


32 


1A 


► 181 

► 182 






STA 


:RitNdx 


; store for later use 










>183 


* 


figure 


out left pixel 


index 


193E: 


AD 


F7 


1C 


► 184 






LDA 


BitPos 


; FigPoint already found it 


1941: 


8D 


31 


1A 


>185 
► 186 






STA 


:LftNdx 


; store for later use 










► 187 


* 


branch 


for 1 


, 2, or 3 


part lines 


1944: 


AE 


30 


1A 


► 188 






LDX 


:DXHi 


; check out hi byte of delta X 


1947: 


DO 


OE 




► 189 






BNE 


: 3Part 


; it's 3 parts if non-zero 


1949: 


18 






>190 






CLC 




; add left index to delta X 


194A: 


6D 


2F 


1A 


>191 
>192 






ADC 


:DXLo 


; remember, hi DX is if we 
; ... got here 


194D: 


BO 


08 




>193 






BCS 


: 3Part 


; if > 255, it's 3 parts 


194F: 


C9 


08 




>194 






CMP 


#8 


; if sum is < 8, it's one part 


1951: 


90 


6C 




>195 






BCC 


: 1 Part 


; branch if so 


1953: 


C9 


10 




>1 96 






CMP 


#16 


; if sum is < 15, it's two part 
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1955: 90 57 



1957: 20 EF 19 



195A: 
195B: 
195E: 
1961: 
1962: 
1965: 
1967: 

1968: 
196B: 
196D: 

1970: 
1971: 
1972: 
1975: 
1978: 
1979: 

197B: 
197C: 
197F: 
1980: 
1983: 
1984: 



18 

AD 2F 1A 

6D 31 1A 

AA 

AD 30 1A 

69 00 

A8 

AD 32 1 A 
69 08 
8D 33 1A 

38 

8A 

ED 33 1A 

8D 33 1A 

98 

E9 00 

4A 

6E 33 1A 

4A 

6E 33 1A 

4A 

6E 33 1A 



1987: AC 33 1A 

198A: A9 FF 

198C: 2C F9 1C 

198F: 30 02 

1991 : 49 FF 

1993: 20 BB 1C 



1996: 88 
1997: DO FA 



1999: 
199A: 
199D: 
19A0: 
19A3: 
19A5: 



38 

AD 
6D 
8D 
90 

EE 



F4 
33 
F4 
03 
F5 



1C 
1A 
1C 

1C 



>197 

>198 

>199 

>200 

>201 

>202 

>203 

>204 

>205 

>206 

>207 

>208 

>209 

>210 

>211 

>212 

>213 

>214 

>215 

>216 

>217 

>218 

>219 

>220 

>221 

>222 

>223 

>224 

>225 

>226 

>227 

>228 

>229 

>230 

>231 

>232 

>233 

>234 

>235 

>236 

>237 

>238 

>239 

>240 

>241 

>242 

>243 

>244 

>245 

>246 

>247 

>248 

>249 

>250 

>251 

>252 

>253 

>254 

>255 

>256 

>257 

>258 

>259 

>260 

>261 



BCC :2Part ; branch if so 

; otherwise, we've got 3 parts 

** deal with a three-part line 
:3Part 

* do the left part of the line 
JSR :DoLftPrt 



do the middle part — figure # of bytes, then do 'em 
# of bytes = (length - (left length + right length) ) 
+1 - (8 - left index + right index + 1) ) 
+ 1 - 8 + left index - right index - 1 ) / 
X + left index) - (right index + 8) ) / 8 
; delta X + left index 
; result in X and Y registers 



(delta X 
(delta X 
( (delta 
CLC 
LDA 
ADC 
TAX 
LDA 
ADC 
TAY 



:DXLo 

:LftNdx 

:DXHi 
#0 



LDA :RltNdx 

ADC #8 

STA :MidCont 

SEC 

TXA 

SBC :MidCont 

STA :MidCont 

TYA 

SBC #0 



LSR 
ROR 
LSR 
ROR 
LSR 
ROR 



:MidCont 
:MidCont 
:MidCont 



; right index + 8 

; result put in :MidCont 



first group minus second 
result left in :MidCont 
. . . and A register 



divide it all by 8 



* the middle drawing loop 
:MidSet LDY :MidCont 



LDA 
BIT 
BMI 

:MidOff EOR 

:MidStor JSR 



:MidTst 



DEY 

BNE 



#$FF 

OnOrOff 

:MidStor 

#$FF 

VDCMemPoke 



:MidStor 



it now holds # of middle bytes 



it ' 11 count the bytes 
start with a byte full of 1's 
are we turning on or off 
branch for on 

turn byte into 0's for off 

store byte 

storage address updated by VDC 

down the counter 
loop until done 



* draw the right part of the line 

* adjust byte pointer for right part of line 

SEC ; add in the middle part's 

LDA BtByLo ; ... byte count plus 1 
ADC :MidCont 
STA BtByLo 
BCC : 3Rit 
INC BtByHi 

* go draw that right part and get out 
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19A8: 


20 


OF 


1A 


>262 
>263 


:3Rit 


JSR 
BRA 


:DoRitPrt ; draw the right part of line 
:Bye ; and get out 


19AB: 


B8 






>263 




CLV 




19AC: 


50 


3B 




>263 
>263 
>264 
>265 




BVC 
<< < 


:Bye 










>266 


** deal 


with a 


two-part line 










>267 


:2Part 














>268 
















>269 


* do the 


left 


part 


19AE: 


20 


EF 


19 


>270 
>271 




JSR 


:DoLftPrt 










>272 


* adjust 


byte 


pointer for right part of line 


19B1: 


EE 


F4 


1C 


>273 




INC 


BtByLo 


19B4: 


90 


03 




>274 




BCC 


:2Rit 


19B6: 


EE 


F5 


1C 


>275 
>276 




INC 


BtByHi 










>277 


* do the 


right 


part and get out 


19B9: 


20 


OF 


1A 


>278 
>279 


:2Rit 


JSR 
BRA 


:DoRitPrt 
:Bye 


19BC: 


B8 






>279 




CLV 




19BD: 


50 


2A 




>279 
>279 
>280 
>281 




BVC 
<<< 


:Bye 










>282 


** deal 


with a 


one-part line 










>283 


:lPart 














>284 
















>285 


* do some fancy masking 


19BF: 


AE 


31 


1A 


•286 




LDX 


:LftNdx ; get the left OR mask 


19C2: 


BD 


35 


1A 


>287 




LDA 


:LfOrMsk,X 


19C5: 


8D 


34 


1A 


288 




STA 


:OneMask 


19C8: 


AE 


32 


1A 


-289 




LDX 


:RitNdx ; get the right OR mask 


19CB: 


BD 


3E 


1A 


>290 




LDA 


:RtOrMsk,X 


19CE: 


2D 


34 


1A 


►291 

>292 




AND 


:OneMask ; get their 1's intersection 


19D1: 


20 


71 


1C 


>293 




JSR 


GetTargByt ; get the target byte 


19D4: 


2C 


F9 


1C 


294 




BIT 


OnOrOff ; do we turn bits on or off ? 


19D7: 


10 


05 




295 
296 




BPL 


:OneOff ; branch for off 


19D9: 


0D 


F8 


1C 


297 


: OneOn 


ORA 


TargByt ; turn appropriate bits on 


19DC: 


DO 


05 




298 
299 




BNE 


: WrtOne ; branch always 


19DE: 


49 


FF 




300 


:OneOff 


EOR 


#$FF ; invert the mask 


19E0: 


2D 


F8 


1C 


301 
302 




AND 


TargByt ; turn appropriate bits off 










303 


* draw the sucker 


19E3: 


8D 


F8 


1C 


304 


: WrtOne 


STA 


TargByt ; store the result 


19E6: 


20 


75 


1C 


305 
jo6 
307 




JSR 


PutTargByt ; store the left byte 
























308 


* restore some 


registers and leave 


19E9: 


68 






309 


:Bye 


PLA 


; restore registers 


19EA: 


A8 






310 




TAY 




19EB: 


68 






311 




PLA 




19EC: 


AA 






312 




TAX 




19ED: 


68 






313 
314 




PLA 




19EE: 


60 






315 
316 
317 
318 
319 
320 




RTS 


; return from DoHorz 

local subroutines for DoHorz 

:DoLftPrt 
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19EF: 
19F2: 
19F5: 
19F8: 

19FA: 
19FD: 
1A00: 

1A02: 
1A05: 

1A08: 
1A0B: 
1A0E: 



AE 31 1A 

20 71 1C 

2C F9 1C 
10 08 

BD 35 1A 
0D F8 1C 
DO 06 

BD 3D 1A 
2D F8 1C 

8D F8 1C 
20 75 1C 
60 



1A0F: 
1A12: 
1A15: 
1A18: 

1A1A: 
1A1D: 
1A20: 

1A22: 
1A25: 

1A28: 
1A2B: 
1A2E: 



AE 32 1A 

20 71 1C 

2C F9 1C 
10 08 

BD 3E 1A 
OD F8 1C 
DO 06 

BD 36 1A 
2D F8 1C 

8D F8 1C 
20 75 1C 
60 



1A2F 


. 00 


1A30 


00 


1A31 


00 


1A32 


00 


1A33 


00 


1A34 


00 


1A35 


FF 


1A36 


7F 


1A37 


3F 


1A38 


1F 


1A39 


OF 


1A3A 


07 


1A3B 


03 


1A3C 


01 


1A3D 


00 


1A3E 


80 


1A3F 


CO 


1A40 


EO 



>321 
>322 
>323 
>324 
>325 
>326 
>327 
>328 
>329 
>330 
>331 
>332 
>333 
>334 
>335 
>336 
>337 
>338 
>339 
>340 
>341 
>342 
>343 
>344 
>345 
>346 
>347 
>348 
>349 
>350 
>351 
>352 
>353 
>354 
>355 
>356 
>357 
>358 
>359 
>360 
>361 
>362 
>363 
>364 
>365 
>366 
>367 
>368 
>369 
>370 
>371 
>372 
>373 
>374 
>375 
>376 
>377 
>378 
>379 
>380 
>381 
>382 
>383 
>384 
>385 



* do the left part of a horizontal line 
:DoLftPrt 



LDX 
JSR 
BIT 
BPL 

:LeftOn LDA 
ORA 
BNE 

:LeftOff LDA 
AND 

:WrtLft STA 
JSR 

RTS 



:LftNdx ; get the already-calc'd index 

GetTargByt ; get the target byte 

OnOrOff ; do we turn bits on or off ? 

:LeftOff ; branch for off 

:LfOrMsk,X ; get the mask 

TargByt ; turn appropriate bits on 

:WrtLft ; branch always 

:LfNdMsk,X ; get the mask 

TargByt ; turn appropriate bits off 

TargByt ; store the result 

PutTargByt ; store the left byte 
; return from DoLftPrt 



* :DoRitPrt 

* do the right part of a horizontal line 



:DoRitPrt 

LDX :RitNdx ; get the already-calc'd index 

JSR GetTargByt ; get the target byte 

BIT OnOrOff ; do we turn bits on or off ? 

BPL :RiteOff ; branch for off 

:RiteOn LDA :RtOrMsk,X ; get the mask 

ORA TargByt ; turn appropriate bits on 

BNE :WrtRit ; branch always 

:RiteOff LDA :RtNdMsk,X ; get the mask 

AND TargByt ; turn appropriate bits off 

:WrtRit STA TargByt ; store the result 

JSR PutTargByt ; store the right byte 

RTS ; return from DoRitPrt 



* local variables & constants for DoHorz 



: DXLo DS 
:DXHi DS 
:LftNdx DS 
:RitNdx DS 
:MidCont DS 

:OneMask DS 

:LfOrMsk DFB 

:RtNdMsk DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

:LfNdMsk DFB 

:RtOrMsk DFB 

DFB 

DFB 



1 

%111111 

%011111 

%001111 

%000111 

%000011 

%000001 

%000000 

%0000000 

%00000000 

%1 0000000 

%1 1000000 

%11100000 



horizontal length less 1 

index into byte from left 
index into byte from right 
bytes worth of middle for 
... a 3-part line 
mask for a 1-part line 

ORing masks, left-indexed bytes 
ANDing masks, rite-indexed byts 



ANDing masks, left-indexed byts 
ORing masks, rite-indexed bytes 
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1A41: FO 
1A42: F8 
1A43: FC 
1A44: FE 
1A45: FF 



1A46: 
1A47: 
1A48: 
1A49: 
1A4A: 



1A4B: 
1A4C: 
1A4F: 
1A52: 
1A55: 
1A58: 
1A5B: 

1A5E: 
1A5F: 
1A62: 
1A65: 



1A68: 
1A6A: 
1A6C: 
1A6E: 



48 
8A 
48 
98 
48 



38 

AD FD 1C 
ED FA 
8D C3 
AD FE 1C 
ED FB 1C 
8D C4 



1C 

1B 



1B 



38 

AD FF 1C 
ED FC 1C 
8D C5 1B 



BO 04 
49 FF 
69 01 
8D C6 IB 



1A71 : 6E C7 1B 



1A74: AE C4 1B 
1A77: FO 03 
1A79: 18 
1A7A: 90 03 

1A7C: CD C3 1B 

1A7F: 6E C7 1B 



>386 
>387 
>388 
>389 
>390 
>391 
>392 
>393 
>394 
>395 
>396 
>397 
>398 
>399 
>400 
>401 
>402 
>403 
>404 
>405 
>406 
>407 
>408 
>409 
>410 
>411 
>412 
>413 
>414 
>415 
>416 
>417 
>418 
>419 
>420 
>421 
>422 
>423 
>424 
>425 
>426 
>427 
>428 
>429 
>430 
>431 
>432 
>433 
>434 
>435 
>436 
>437 
>438 
>439 
>440 
>441 
>442 
>443 
>444 
>445 
>446 
>447 
>448 
>449 



DFB 
DFB 
DFB 
DFB 
DFB 



%1 1 1 1 0000 

%11 111000 
%11 111100 
%11 111110 

%11111111 



* DoBres * 

* Draws all kinds of lines on the 80-column screen 

* Bresenham ' s line algorithm idea 

* With slight touches by S. Krute 

* See text for insane pseudo-code 

* Upon entry, first point is leftmost, second point is 

* rightmost 

DoBres 

* save some registers 

PHA 
TXA 
PHA 
TYA 
PHA 

* figure deltas (horizontal and vertical changes) 
:FigDelts 



SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 

SEC 
LDA 
SBC 
STA 



BCS 

EOR 

ADC 

:StorAbs STA 



HrzlLo 
HrzOLo 
:RawDX 
HrzlHi 
HrzOHi 
: RawDX+ 1 



Vrt1 
VrtO 
: RawDY 



:StorAbs 
#$FF 
#1 
:AbsDY 



figure raw delta X 

store raw delta X lo byte 

store raw delta X hi byte 
figure raw delta Y 

store raw delta Y 

figure absolute delta Y 
positive already, so branch 
negative, so positivize it 
remember, carry's clear 
store absolute delta Y 



* set line type : 

* steep or shallow slope 

* rising or falling on screen 



ROR 



LDX 
BEQ 
CLC 
BCC 



:NxtTst CMP 
:SetSlop ROR 



:LinTyp 

:RawDX+1 
:NxtTst 

:SetSlop 

:RawDX 

:LinTyp 



rising or falling flagged 
... by bit 6 : 0-rise 
... 1-fall 

check hi byte of delta X 
check lo byte if hi clear 
if non-zero, bigger than 
... absolute delta Y, 
so set flag for shallow 
check lo byte vs. delta Y 

steep or shallow flagged 
... by bit 7 : 0-shallow 
... 1 -steep 
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1A82: 
1A84: 
1A87: 

1A8A: 
1A8D: 



1A8F: 
1A92: 
1A93: 
1A96: 
1A97: 
1A9A: 
1A9B: 
1A9E: 



1A9F 

Y 

1AA0 

1AA1 

1AA4 

1AA7 

1AA8 

1AA9 

1AAB 

1AAE 



A9 00 
8D C9 1B 
8D CF 1B 

2C C7 1B 
10 37 



AD C3 1B 

0A 

8D C8 1B 

AA 

AD C4 1B 

2A 

8D C9 1B 

A8 



38 

8A 

ED C6 

8D CC 

AA 

98 

E9 00 

8D CD 1B 



: A8 



1AAF: 
1AB0: 
1AB1: 
1AB4: 
1AB7: 
1AB8: 
1ABA: 



1ABD: 
1AC0: 
1AC1: 
1AC4: 



1AC6: 
1AC9: 
1ACA: 
1ACD: 



1AD0: 

X 

1AD1 : 
1AD4: 
1AD7: 

1 AD8: 



1B 
1B 



38 

8A 

ED C6 1B 

8D CA 1B 

98 

E9 00 

8D CB 1B 



AE C6 1B 

E8 

8E CE 1B 

DO 3F 



AD C6 1B 

OA 

8D C8 1B 

2E C9 1B 



38 

ED C3 1B 

8D CC 1B 

AA 

AD C9 1B 



450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 

473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 

507 
508 
509 
510 



: RawDX 
: IncOne 
: RawDX+ 1 
:IncOne+1 



: IncOne = 2 * : RawDX 



store a copy 



store a copy 



* initialize increments, erroraeter, counter 

LDA #0 ; initialize some high bytes 
STA :IncOne+1 
STA :Counter+1 

BIT :LinTyp ; case out on line type 
BPL :InitShallow; shallow types, so branch 

* initialize for a steep line 
:InitSteep 

* set : IncOne 
LDA 
ASL 
STA 
TAX 
LDA 
ROL 
STA 

TAY 

* set :Erometr 

SEC 

TXA 
SBC 
STA 
TAX 
TYA 
SBC 
STA 
TAY 

* set : IncTwo 

SEC 
TXA 
SBC 
STA 
TYA 
SBC 
STA 

* set : Counter 
LDX 
INX 
STX 

BNE 



:AbsDY 
:Erometr 



#0 
:Erometr+1 



:AbsDY 
: IncTwo 

#0 
:IncTwo+1 



:AbsDY 

: Counter 
:DrawPrep 



; :Erometr = (2 * : RawDX) - :AbsD 

; = : IncOne - :AbsDY 

; that's why we stored the copies 

; copy storage again 



copy storage 



; : IncTwo = 2 * (: RawDX - :AbsDY) 
; = :Erometr - :AbsDY 



; : Counter = :AbsDY + 1 



; prepare for drawing (always) 



* initialize for a shallow line 
:InitShallow 

* set : IncOne 

LDA :AbsDY ; : IncOne = 2 * 

ASL 

STA : IncOne 

ROL :Inc0ne+1 



:AbsDY 



* set :Erometr 
SEC 



: RawDX 
:Erometr 



SBC 
STA 
TAX 
LDA :IncOne+1 



:Erometr = (2 * :AbsDY) - :RawD 



: IncOne - : RawDX 
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1ADB: 
1ADE: 

1AE1 : 



1AE2: 
1AE3: 
1AE4: 
1AE7: 
IAEA: 
1AEB: 
1AEE: 



1AF1 : 
1AF4: 
1AF7: 
1AFA: 
1AFD: 
1B00: 
1B02: 



ED C4 1B 
8D CD 1B 
A8 



38 

8A 

ED C3 1B 

8D CA 1B 

98 

ED C4 1B 

8D CB 1B 



AD C3 1B 
8D CE 1B 
AD C4 1B 
8D CF 1B 
EE CE 1B 
DO 03 
EE CF 



1B 



1B05: 20 17 1C 



1B08: AD FA 1C 
1B0B: 29 07 
1B0D: AA 



1B0E: B8 
1B0F: 50 5F 



1B11 : 2C C7 1B 
1B14: 30 05 



1B16: 20 95 1B 
1B19: DO OE 



1B1B: 2C C7 1B 
1B1E: 70 06 



1B20: 20 A5 1B 

1B23: B8 
1B24: 50 03 



1B26: 20 B4 1B 



1B29: 2C CD 1B 



>511 
>512 
>513 
>514 
>515 
>516 
>517 
>518 
>519 
>520 
>521 
>522 
>523 
>524 
>525 
>526 
>527 
>528 
>529 
>530 
>531 
>532 
>533 
>534 
>535 
>536 
>537 
>538 
>539 
>540 
>541 
>542 
>543 
>544 
>545 
>545 
>545 
>545 
>546 
>547 
>548 
>549 
>550 
>551 
>552 
>553 
>554 
>555 
>556 
>557 
>558 
>559 
>560 
>561 
>562 
>563 
>563 
>563 
>563 
>564 
>565 
>566 
>567 
>568 
>569 



SBC 
STA 
TAY 

* set :IncTwo 

SEC 
TXA 
SBC 
STA 
TYA 
SBC 
STA 

* set : Counter 

LDA 
STA 
LDA 
STA 
INC 
BNE 
INC 



:RawDX+1 

:Erometr+1 



:RawDX 
:IncTwo 

:RawDX+1 
:IncTwo+1 



:RawDX 
: Counter 
: RawDX+ 1 
:Counter+1 
: Counter 
:DrawPrep 
:Counter+1 



:IncTwo = 2 * (:AbsDY - :RawDX) 
= :Erometr - :RawDX 



: Counter = :RawDX + 1 



* prepare for drawing 
:DrawPrep 

* figure vital point plotting information 

JSR FigPoint 

* see where starting pixel is in its byte 



LDA 
AND 
TAX 



HrzOLo 
§1 



take horizontal position 
... mod 8 

store it in X to figure out 
. . . where pixel is in byte 



* enter at the bottom of the drawing loop 
BRA : DrawBtm 
CLV 
BVC : DrawBtm 



* top of drawing loop 
:LupTop 

* branch for steep or shallow line 

BIT :LinTyp ; steep or shallow ? 
BMI : Steep 

* for shallow line, move to the right 

: Shallow JSR :GoRite ; move to the right 
BNE :ErrTest ; branch always 

* for steep line : branch for rising or falling 

: Steep BIT :LinTyp ; differences for steepitude 
BVS : StpFal 

* for steep rising line, move up 

:StpRis JSR :GoUp ; adjust byte pointer up 

BRA :ErrTest ; branch always 
CLV 

BVC : Err Test 
<<< 

* for steep falling line, move down 

: StpFal JSR :GoDown ; adjust byte pointer down 

* adjust the :Erometr according to its current value 
:ErrTest BIT :Erometr+1 ; is :Erometr positive ? 
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1B2C: 10 16 



1B2E: 
1B2F: 
1B32: 
1B35: 
1B38: 
1B3B: 
1B3E: 



18 

AD CC 1B 

6D C8 1B 

8D CC 1B 

AD CD 1B 

6D C9 1B 

8D CD 1B 



1B41: B8 
1B42: 50 2C 



1B44: 
1B45: 
1B48: 
1B4B: 
1B4E: 
1B51 : 
1B54: 



18 

AD CC 1B 
6D CA IB 
8D CC 1B 
AD CD 1B 
6D CB 1B 
8D CD 1B 



1B57: 2C C7 1B 
1B5A: 30 11 



1B5C: 2C C7 1B 
1B5F: 70 06 



1B61 : 20 A5 1B 

1B64: B8 
1B65: 50 09 



1B67: 20 B4 1B 

1B6A: B8 
1B6B: 50 03 



1B6D: 20 95 1B 



1B70: 8E F7 1C 
1B73: 20 67 1C 



1B76: CE CE 1B 
1B79: AD CE 1B 
1B7C: C9 FF 



>570 

>571 

>572 

>573 

>574 

>575 

>576 

>577 

>578 

>579 

>580 

>580 

>580 

>580 

>581 

>582 

>583 

>584 

>585 

>586 

>587 

>588 

>589 

>590 

>591 

>592 

>593 

>594 

>595 

>596 

>597 

>598 

>599 

>600 

>601 

>602 

>603 

>603 

>603 

>603 

>604 

>605 

>606 

>607 

>608 

>608 

>608 

>608 

>609 

>610 

>611 

>612 

>613 

>614 

>615 

>616 

>617 

>618 

>619 

>620 

>621 

>622 

>623 

>624 

>625 



BPL 



:ItsPos 



yes, so branch 
add 



IncOne to a negative 
Erometr 



go to bottom of drawing loop 



* : Erometr is negative 
:ItsNeg CLC 

LDA : Erometr 

ADC : IncOne 

STA : Erometr 

LDA :Erometr+1 

ADC :IncOne+1 

STA : Erometr* 1 

BRA : DrawBtm 
CLV 

BVC : DrawBtm 
< < < 

* : Erometr is positive 
:ItsPos CLC 

LDA : Erometr 

ADC :IncTwo 

STA : Erometr 

LDA :Erometr+1 

ADC :IncTwo+1 

STA :Erometr+1 



for was-positive :Erometr, branch on steep or shallow 
BIT :LinTyp ; are we steep or shallow ? 
BMI :Steep2 ; branch appropriately 

for was-positive :Erometr and shallow line, branch on 
rising or falling 



add 



slncTwo to a positive 
: Erometr 



:Shalo2 



BIT 
BVS 



: LinTyp 
:ShlFal 



; are we rising or falling ? 
; branch appropriately 



* for was-positive :Erometr and shallow rising line, 

* ... move up a pixel 

:ShlRis JSR :GoUp ; move up a pixel 
BRA : DrawBtm j branch always 
CLV 

BVC : DrawBtm 
<<< 

* for was-positive :Erometr and shallow falling line, 

* ... move down a pixel 

:ShlFal JSR :GoDown ; move down a pixel 
BRA : DrawBtm ; branch always 
CLV 

BVC : DrawBtm 
<<< 

* for was-positive rErometr and steep line, 

* ... move right a pixel 

:Steep2 JSR :GoRite ; move right a pixel 



* bottom of drawing loop 
: DrawBtm 

* draw a point 

STX BitPos 
JSR Plotlt 



set pixel bit position 
plot the point 



* see if we're done looping 

:LupTst 

DEC : Counter ; counter = counter - 1 

LDA : Counter ; down the lo byte, then check 

CMP #$FF ; do we have to do hi byte ? 
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1B7E: 
1B80: 

1B83: 
1B84: 

1B86: 
1B88: 
1B8A: 
1B8D: 



1B8F: 
1B90: 
1B91: 
1B92: 
1B93: 



1B95: 
1B96: 
1B98: 
1B9A: 
1B9C: 
1B9F: 
1BA1 : 
1BA4: 



1BA5: 
1BA6: 
1BA9: 
1BAB: 
1BAE: 
1BB0: 
1BB3: 



1BB4 
1BB5 
1BB8 
1BBA 
1BBD 
1BBF 
1BC2 



DO 06 
CE CF 

B8 
50 8B 

C9 00 
DO 87 
AD CF 
DO 82 



68 

A8 
68 
AA 
68 



1B94: 60 



E8 

EO 08 
90 OA 
A2 00 
EE F4 
DO 03 
EE F5 
60 



38 

AD F4 
E9 50 
8D F4 
BO 03 
CE F5 
60 



18 

AD F4 
69 50 
8D F4 
90 03 
EE F5 



: 60 



>626 
1B >627 
>628 
>628 
>628 
>628 
>629 
>630 

1B >631 
>632 
>633 
>634 
>635 
>636 
>637 
>638 
>639 
>640 
>641 
>642 
>643 
>644 
>645 
>646 
>647 
>648 
>649 
>650 
>651 
>652 
>653 
>654 

1C >655 
>656 

1C >657 
>658 
>659 
>660 
>661 
>662 
>663 
>664 
>665 

1C >666 
>667 

1C >668 
>669 

1C >670 
>671 
>672 
>673 
>674 
>675 
>676 
>677 

1C >678 
>679 

1C >680 
>681 

1C >682 
>683 
>684 
>685 
>686 
>687 



BNE 
DEC 
BRA 
CLV 
BVC 
< < < 
:ZerTst CMP 
BNE 
LDA 
BNE 



: ZerTst 
:Counter+1 
: LupTop 

: LupTop 

#0 

: LupTop 

:Counter+1 

: LupTop 



no, so check zeroness 



is lo byte zero ? 

no, so branch to loop top 

is hi byte zero ? 

no, so branch to loop top 

if both bytes zero, we gone 



* restore some registers and leave 

PLA ; restore registers 

TAY 

PLA 

TAX 

PLA 



RTS 



; return from DoBres 



* local subroutines for DoBres 



* move right a pixel 



:GoRite 



:GoRite INX 
CPX 
BCC 
LDX 
INC 
BNE 
INC 

: GRDun RTS 



#8 

: GRDun 

#0 

BtByLo 

: GRDun 

BtByHi 



; up the pixel index 

; into next byte ? 

; if not, git on back 

; yes, so reset bit counter 

; ... and move byte pointer 

; ... one to the right 

; return from :GoRite 



* :GoUp 

* move up a pixel 

:GoUp SEC ; just subtract a line's 

LDA BtByLo ; ... worth of bytes 

SBC #BytPerLin 

STA BtByLo 

BCS :GUDun 

DEC BtByHi 
:GUDun RTS ; return from :GoUp 



* :GoDown 

* move down a pixel 

:GoDown CLC ; just add a line's 

LDA BtByLo ; ... worth of bytes 

ADC #BytPerLin 

STA BtByLo 

BCC : GDDun 

INC BtByHi 
: GDDun RTS ; return from :GoDown 



* local variables for DoBres 
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1BC3: 
1BC5: 
1BC6: 

1BC7: 
1BC8: 
1BCA: 
1BCC: 



00 00 
00 

00 

00 

00 00 

00 00 

00 00 



1BCE: 00 00 



1BD0: 
1BD1 : 
1BD2: 
1BD3: 
1BD4: 



1BD5: 
1BD7: 
1BD8: 



48 
8A 
48 
98 
48 



A5 D7 
48 

30 03 



1BDA: 20 5F 



1BDD; 
1BDF: 



1BE2: 
1BE3: 



A9 93 

20 D2 



68 
30 03 



1BE5: 20 5F 



1BE8: 
1BE9: 

1BEA: 
1BEB: 
1BEC: 



68 
A8 
68 
AA 
68 



1BED: 60 



1BEE: 
1BEF: 



48 
8A 



>688 
>689 
>690 
>691 
>692 
>693 
>694 
>695 
>696 
>697 
>698 
>699 
365 
367 
368 
369 
>1 
>2 
>3 
>4 
>5 
>6 
>7 
>8 
>9 
>10 
>11 
>12 
>13 
>14 
>15 
>16 
>17 
>18 
>19 
FF >20 
>21 
>22 
>23 
FF >24 
>25 
>26 
>27 
>28 
>29 
FF >30 
>31 
>32 
>33 
>34 
>35 
>36 
>37 
>38 
>39 
>40 
>41 
>42 
>43 
>44 
>45 
>46 
>47 
>48 
>49 



: RawDX DS 

: RawDY DS 

:AbsDY DS 

:LinTyp DS 

:IncOne DS 

: IncTwo DS 

:Erometr DS 

: Counter DS 



TTL "GRAFIX 80 5 



horizontal length less one 

absolute value of vertical 
. . . length less one 
type of line 
increment for :Erometr 
increment for :Erometr 
tracks relation between 
. . . real and ideal line 
tracks horizontal or vertical 
. . . pixels needed to complete 
. . . the line 
,S" 



* Here Comes Another Source File * 

POT "GRAFIX 80 5.S" 

* ClrTx80 * 

* Clear the 80-column text screen 

ClrTx80 

* save some registers 

PHA 
TXA 
PHA 
TYA 
PHA 

* make sure we're in 80 column screen mode 

LDA Mode ; see if we're in 40 or 80 mode 

PHA ; park mode on stack 

BMI :Clear ; branches if already in 80 mode 

JSR Swapper ; change to 80 mode from 40 

* clear the screen 

: Clear LDA #ClearScrn ; get clear screen character 
JSR BSOut ; send it out 

* return to entry screen mode 

PLA ; get mode back from stack 

BMI :Bye ; branches if we were in 80 

JSR Swapper ; change back to 40 mode from 80 

* restore some registers and leave 
: Bye PLA 

TAY 
PLA 
TAX 
PLA 



RTS 



; return from ClrTx80 



* ClrGr80 

* Clear the 80-column graphics screen 

ClrGr80 

* save some registers 

PHA 
TXA 
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1BF0: 


48 






>50 






PHA 






1BF1 : 


98 






>51 






TYA 




1BF2: 


48 






>52 
>53 






PHA 












>54 


* 


prepare for page clearing loop 


1BF3: 


AO 


3E 




>55 
>56 






LDY 


#>BitMapSiz; we'll clear that many pages 
; ... plus 1 of memory 


1BF5: 


98 






>57 
>58 
>59 






TYA 


j starting with that page 










* 


body 


of the 


page clearing loop 


1BF6: 


A2 


12 




>60 


: 


dupOne LDX 


#AdrHiReg 


; set VDC update location 


1BF8: 


20 


BD 


1C 


>61 






JSR 


VDCRegPoke 


; ... to page whose § is 


1BFB: 


E8 






>62 






INX 




; ... in the A register 


1BFC: 


A9 


00 




>63 






LDA 


#0 


1BFE: 


20 


BD 


1C 


>64 
>65 

>66 






JSR 


VDCRegPoke 


1C01 : 


A2 


1F 








LDX 


#DataReg ; store as the data to 


1C03: 


20 


BD 


1C 


>67 
>68 






JSR 


VDCRegPoke ; ... be written 


1C06: 


A2 


1E 




>69 






LDX 


SBytCntReg ; tell the chip to store 


1C08: 


20 


BD 


1C 


>70 
>71 
>72 






JSR 


VDCRegPoke ; 256 copies of it 










* 


loop 


continuation test 


1C0B: 


88 






>73 
>74 






DEY 




count another memory page 
... done 


1C0C: 


30 


03 




>75 






BMI 


:Bye 


if we're all done, branch 


1C0E: 


98 






>76 






TYA 




not all done, so move page 


1C0F: 


10 


E5 




>77 
>78 
>79 






BPL 


: LupOne 


. . . down and loop-de-loop 










* 


restore some registers and leave 


1C11: 


68 






>80 


:Bye 


PLA 




1C12: 


A8 






>81 






TAY 




1C13: 


68 






>82 






PLA 




1C14: 


AA 






>83 






TAX 




1C15: 


68 






>84 
>85 






PLA 




1C16: 


60 






>86 
>87 






RTS 


; return from ClrGr80 










>88 
>89 


* 










* 












>90 


















>91 


* 


Figures out 


vital information for point plotting 










>92 
>93 
>94 


* 


Sets 


up a number of variables 










* 


On entry : 


horizontal coordinate is in HrzOLo and HrzOHi 










>95 


* 






vertical coordinate is in VrtO 










>96 


* 


On exit : 


pixel's position in byte (7..0) is 










>97 


* 






. . . stored in BitPos 










>98 


* 






pixel's byte's address is in BtByLo - BtByHi 










>99 


* 






pixel's byte's row offset (0..79) is in RowOff 










>100 


















>101 


FigPoint 












>102 


* 


save 


some registers 


1C17: 


48 






>103 






PHA 




1C18: 


8A 






>104 






TXA 




1C19: 


48 






>105 






PHA 




1C1A: 


98 






>1 06 






TYA 




1C1B: 


48 






>107 
>108 






PHA 












>109 


* 


prepa 


re to 


use vertical coordinate 


1C1C: 


AD 


FC 


1C 


>1 1 






LDA 


VrtO ; get vertical coordinate 


1C1F: 


48 






>111 
>1 1 2 






PHA 


; save a copy 










>1 1 3 


* 


figui 


e address of first byte in point's row 
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1C20: 
1C22: 
1C23: 
1C26: 



1C29 
1C2A 
1C2B 
1C2C 
1C2D 
1C2E 
1C2F 
1C30 
1C33 
1C36 



1C39 
1C3C 
1C3F 
1C42 
1C43 
1C46 
1C47 
1C4A 
1C4B 
1C4C 

1C4F: 
1C50: 
1C53: 
1C56: 

1C58: 



29 OF 

AA 

BD 34 1D 

8D F4 1C 



68 
4A 
4A 
4A 
4A 
18 
A8 
B9 44 



1C5C: 
1C5E: 



1C61: 
1C62; 
1C63: 
1C64: 
1C65: 



1C67: 
1C6A: 
1C6D: 
1C70: 



7D 51 
8D F5 



AD FB 1C 

8D EC 1C 

AD FA 1C 

48 

4E EC 1C 

6A 

4E EC 1C 

6A 

4A 

8D F6" 1C 

18 

6D F4 1C 
8D F4 1C 
90 03 
EE F5 1C 



1C5B: 68 



29 07 
8D F7 1C 



68 
A8 
68 
AA 
68 



1C66: 60 



20 71 1C 
20 9E 1C 
20 75 1C 
60 



> 1 1 4 
>1 1 5 

>116 
>1 1 7 

>118 
>119 
>120 
>1 21 
>122 
>1 23 
>1 24 
>125 
>1 26 
>127 
>128 
>129 
>130 
>131 
>132 
>133 
>134 
>135 
>136 
>137 
>138 
>139 
>140 
>141 
>142 
>1 43 
>144 
>145 
>146 
>147 
>148 
>149 
>150 
>151 
>152 
>153 
>154 
>155 
>156 
>157 
>158 
>159 
>160 
>161 
>162 
>163 
>164 
>165 
>1 66 
>1 67 
>168 
>169 
>170 
>171 
>172 
>173 
>174 
>175 
>1 76 
>177 
>178 
>179 



get the low byte 

AND #%00001111 

TAX 

LDA RwLoBs , X 

STA BtByLO 

get the high byte 
PLA 
LSR 
LSR 
LSR 
LSR 
CLC 
TAY 

LDA RHiBMst,Y 
ADC RHiBAdj,X 
STA BtByHi 



take vert, coord mod 16 
we'll use it to index 
get low byte of address 
store low byte of address 



A holds vertical 
divide it by 16 
ends up in range 



coord again 
0..12 



prepare to add 

we want to index 

get most of hi byte 

add in adjustment 

store hi byte of address 



* adjust address for horizontal coordinate 



LDA 
STA 
LDA 
PHA 
LSR 
ROR 
LSR 
ROR 
LSR 
STA 



HrzOHi 

ScratPad 

HrzOLo 

ScratPad 

ScratPad 



RowOff 



CLC 

ADC BtByLo 

STA BtByLo 

BCC :LocateBit 

INC BtByHi 



get the horizontal hi byte 

then the lo byte 
save copy for later 
now, divide horizontal 
. . . coordinate by eight 
this gives us the 
. . . bit ' s byte ' s row 
... offset (0..79) 
store that row offset 

add it to address 



:LocateBit 

PLA 

AND 

STA 



#7 
BitPos 



fetch low byte of horizontal 
. . . cooordinate 
horz. coord, mod 8 
store it 



* restore some registers and leave 
PLA 
TAY 
PLA 
TAX 
PLA 



RTS 



return from FigPoint 



* Plotlt 

* plot a pixel on the 80-column screen 



Plotlt 



JSR GetTargByt ; get the target pixel's byte 

JSR PixelPop ; set the target pixel on or off 

JSR PutTargByt ; put target pixel's byte back 

RTS ; return from Plotlt 



* GetTargByt & PutTargByt * 

* two routines: get the target pixel's byte or put it back 
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1C71 : 
1C72: 
1C73: 



1C75: 
1C76: 

1C77: 
1C78: 
1C79: 

1C7A: 
1C7C: 
1C7F: 
1C82: 
1C83: 
1C86: 



08 
18 
90 02 



08 
38 

48 
8A 
48 

A2 12 

AD F5 1C 

20 BD 1C 

E8 

AD F4 1C 

20 BD 1C 



1C89: BO 08 



1C8B: 
1C8E: 
1C91: 

1C93: 
1C96: 



1C99: 
1C9A: 
1C9B: 
1C9C: 



20 C9 1C 
8D F8 1C 
90 06 

AD F8 1C 
20 BB 1C 



68 
AA 
68 
28 



1C9D: 60 



1C9E: 
1C9F: 
1CA0: 

1CA1 : 
1CA4: 
1CA7: 
1CAA: 

1CAC: 
1CAF: 



48 

8A 
48 

AD F8 1C 
AE F7 1C 
2C F9 1C 
10 05 

1D 61 1D 
DO 03 



1CB1 : 3D 69 1D 



1CB4: 8D F8 1C 



1CB7: 
1CB8: 
1CB9: 



68 
AA 
68 



>180 

>181 

>182 

>183 

>184 

>185 

>1 86 

>187 

>188 

>189 

>190 

> 1 91 

>192 

>1 93 

>194 

>195 

>196 

>197 

>198 

>199 

>200 

>201 

>202 

>203 

>204 

>205 

>206 

>207 

>208 

>209 

>210 

>211 

>212 

>213 

>214 

>215 

>216 

>217 

>218 

>219 

>220 

>221 

>222 

>223 

>224 

>225 

>226 

>227 

>228 

>229 

>230 

>231 

>232 

>233 

>234 

>235 

>236 

>237 

>238 

>239 

>240 

>241 

>242 

>243 

>244 

>245 



GetTargByt 

PHP 
CLC 
BCC 

PutTargByt 

PHP 
SEC 



MorSav 



:GetIt 



:PutIt 



PHA 
TXA 
PHA 

LDX 
LDA 
JSR 
INX 
LDA 
JSR 

BCS 

JSR 
STA 
BCC 

LDA 
JSR 



; save Status 
; clear Carry for Get 
MorSav ; skip next entry 



; save Status 

; set Carry for Put 

; save registers 



SAdrHiReg ; set VDC update location to 
BtByHi ; ... target byte 
VDCRegPoke 



BtByLo 
VDCRegPoke 

:PutIt 



; branch for get or put 



VDCMemPeek ; get the target byte 

TargByt ; and store it 

:GPBye ; always 

TargByt ; get the target byte 

VDCMemPoke ; and store it 



* restore some 

:GPBye PLA 

TAX 

PLA 

PLP 

RTS 



registers and leave 



; even the Status register 
; return from GetTargByt 



* PixelPop — 

* set the target pixel on or off 

PixelPop 

* save some registers 

PHA 
TXA 
PHA 



:PixOn 



LDA 
LDX 
BIT 
BPL 

ORA 

BNE 



:PixOff AND 
rStikit STA 



TargByt ; get target byte 

BitPos ; get bit index 

OnOrOff ; check for pixel on or off 

:PixOff ; branch accordingly 

OnPixel,X ; force bit to 1 for pixel on 

:Stikit ; always branches 

Off Pixel, X ; force bit to for pixel off 

TargByt ; save fixed target byte 



* restore some registers and leave 
PLA 
TAX 
PLA 
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1CBA: 60 



1CBB: A2 1F 



1CBD: 
1CC0: 
1CC3: 
1CC5: 
1CC8: 



8E 00 D6 
2C 00 D6 
10 FB 
8D 01 
60 



D6 



1CC9: A2 1F 



1CCB: 
1CCE: 
1CD1: 
1CD3: 
1CD6: 



8E 00 D6 
2C 00 D6 
10 FB 
AD 01 

60 



D6 



1CD7: 
1CDA: 



1CDC: 
1CDF: 



1CE1 : 



20 86 03 
F0 OC 



20 06 14 
C9 2C 



FO 05 
1CE3: 20 F4 87 



>246 

>247 

>248 

>249 

>250 

>251 

>252 

>253 

>254 

>255 

>256 

>257 

>258 

>259 

>260 

>261 

>262 

>263 

>264 

>265 

>266 

>267 

>268 

>269 

>270 

>271 

>272 

>273 

>274 

>275 

>276 

>277 

>278 

>279 

>280 

>281 

>282 

>283 

>284 

>285 

>286 

>287 

>288 

>289 

>290 

>291 

>292 

>293 

>294 

>295 

>296 

>297 

>298 

>299 

>300 

>301 

>302 

>303 

>304 

>305 

>306 

>307 

>308 

>309 

>310 



RTS 



; return from PixelPop. 



* 8563 Access Routines 



* Four routines to access the 8563 80-column VDC 

* ( Video Display Chip) 

* VDCMemPoke puts a byte into 8563 's video RAM 

* A holds the byte, VDC registers 18 & 19 point to 

* the RAM location 

* VDCRegPoke puts a byte into an 8563 chip register 

* A holds the byte, X holds the register # 

* VDCMemPeek gets a byte from 8563 's video RAM 

* VDC registers 18 & 19 point to the RAM location, 

* A gets the byte 

* VDCRegPeek gets a byte from an 8563 chip register 

* X holds the register #, A gets the byte 



VDCMemPoke 

LDX 

VDCRegPoke 

STX 

PokeLup BIT 
BPL 
STA 
RTS 

VDCMemPeek 

LDX 

VDCRegPeek 

STX 

PeekLup BIT 
BPL 
LDA 
RTS 



#DataReg ; the read/write data register 

VDCAdr J store the register number 

VDCAdr ; test VDC digestion 

PokeLup ; wait 'til it's been eaten 

VDCDat ; store the data 

; and return 



#DataReg ; the read/write data register 



VDCAdr 
VDCAdr 
PeekLup 
VDCDat 



; store the register number 

; test VDC digestion 

; wait 'til it's been eaten 

; fetch the data 

; and return 



OptNxtByt 



* fetch an optional byte-sized value from a BASIC input 

* ... line — if no value there, defaults to 

* exits with X holding the value and Carry indicating 

* ... default value (clear) or fetched (set) 

* as with ROM parsing routines, consider registers trashed 

OptNxtByt 

* anything around to fetch ? test 1 

JSR ChrGot ; anything left to get ? 

BEQ :DfltBye ; no, so leave with default 

* anything around to fetch ? test 2 



JSR 
CMP 



BEQ 



CommaCruz 

# Comma 



:DfltBye 



make sure there ' s a comma 
is value left out (indicated 
... by a comma as next BASIC 
... line element) ? 
yup, so leave with default 



* something around to fetch, so do so and return 

JSR GetByt ; no, so fetch the value 
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1CE6: 
1CE7: 



1CE8: 
1CEA: 
1CEB: 



38 
60 



A2 00 

18 

60 



1D07 
1D0A 
1D0D 
1D10 
1D15 
1D18 
1D1C 
1D1F 
1D26 
1D29 
1D2D 



1D2E: 
1D2F: 



47 38 

42 4F 
47 38 

43 4F 
47 38 

44 52 
47 38 
47 52 
47 38 
53 43 
00 



7F 
BF 



1D30: 40 



>311 
>312 
>313 
>314 
>315 
>316 
>317 
>318 
>319 
>320 
>321 
>322 
00 
>323 
>324 
>325 
>326 
>327 
>328 
>329 
>330 
>331 
>332 
>333 
>334 
>335 
>336 
>337 
>338 
>339 
>340 
>341 
>342 
>343 
>344 
>345 
>346 
>347 
>348 
>349 
>350 
>351 
>352 
30 >353 
D8 

30 >354 

4C 4F D2 

30 >355 

41 D7 

30 >356 

41 50 48 

30 >357 

41 D4 

>358 

>359 

>360 

>361 

>362 

>363 

>364 

>365 

>366 

>367 

>368 

>369 

>370 



SEC 
RTS 



; indicate fetched value 
; return from OptNxtByt 



* nothing to fetch, so set default and return 
:DfltBye LDX #0 ; load up with default value 
CLC ; indicate default value 

RTS ; return from OptNxtByt 



Variables 

; a scratchpad area 

; holds address of a bit's 

; ... byte 

; offset in the row (0..79) of 

; ... a bit's byte 

; bit's position (0..7) in its 

; ... byte 

; target byte for graphics work 

; whether pixel goes on or off 

; point coords, for drawing 









>321 








1CEC: 


00 


00 


00 >322 


ScratPad 


DS 


8 


1CEF: 


00 


00 


00 00 00 
>323 








1CF4: 


00 




>324 


BtByLo 


DS 




1CF5: 


00 




>325 
>326 


BtByHi 


DS 




1CF6: 


00 




>327 
>328 


RowOf f 


DS 




1CF7: 


00 




>329 
>330 


BitPos 


DS 




1CF8: 


00 




>331 


TargByt 


DS 




1CF9: 


00 




>332 
>333 


OnOrOff 


DS 




1CFA: 


00 




>334 


HrzOLo 


DS 




1CFB: 


00 




>335 


HrzOHi 


DS 




1CFC: 


00 




>336 
>337 


VrtO 


DS 




1CFD: 


00 




>338 


HrzlLo 


DS 




1CFE: 


00 




>339 


HrzlHi 


DS 




1CFF: 


00 




>340 
>341 


Vrt1 


DS 




1D00: 


00 


00 


>342 


ReglEscLk DS 


2 


1D02: 


00 


00 


>343 


ReglEscPr DS 


2 


1D04: 


00 


00 


>344 


ReglEscEx DS 


2 


1D06: 


00 




>345 
>346 
>347 
>348 


TheCode 

* 


DS 


1 

r 



; point 1 coords, for drawing 



stores regular IEscLk vector 
stores regular IEscPr vector 
stores regular IEscEx vector 
stores entry code 



Tables 

* our additions to the BASIC 7.0 command set 



OurComsText 
DCI 



DCI 
DCI 
DCI 
DCI 
HEX 



49 C3 



'g80box' 

'g80color* 

'g80draw' 

'g80graphic' 

'g80scat' 

00 



* VDC masks for setting text and disabling attributes 
VAndMsks 



DFB 
DFB 



401111111 
%10111111 



clears bit 7, setting text 
clears bit 6, disabling 
. . . attributes 



* VDC masks for setting grafix and enabling attributes 
VOrMsks 

DFB %01 000000 ; sets bit 6, enabling 
; ... attributes 
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1D31: 80 



1D32: OF 
1D33: FO 



1D34: 00 50 AO 

1D37: FO 40 90 

1D3A: EO 30 80 

1D3D: DO 20 70 

1D40: CO 10 60 

1D43: BO 



1D44: 00 05 OA 

1D47: OF 14 19 

1D4A: 1E 23 28 

1D4D: 2D 32 37 

1D50: 3C 



1D51 : 
1D54: 
1D57: 
1D5A: 
1D5D: 
1D60: 



1D61 
1D62 
1D63 
1D64 
1D65 
1D66 
1D67 
1D68 



1D69: 
1D6A: 
1D6B: 
1D6C: 
1D6D: 
1D6E: 
1D6F: 
1D70: 



00 00 00 

00 01 01 

01 02 02 

02 03 03 

03 04 04 
04 



80 
40 
20 
10 
08 
04 
02 
01 



7F 
BF 
DF 
EF 
F7 
FB 
FD 
FE 



>371 
>372 
>373 
>374 
>375 
>376 
>377 
>378 
>379 
>380 
>381 
>382 
>383 
>384 
>385 
>386 
>387 
>388 
>389 
>390 
>391 
>392 
>393 
>394 
>395 
>396 
>397 
>398 
>399 
>400 
>401 
>402 
>403 
>404 
>405 
>406 
>407 
>408 
>409 
>410 
>411 
>412 
>413 
>414 
>415 
>416 
>417 
>418 
>419 
>420 
>421 
>422 
>423 
>424 
>425 
>426 
>427 
>428 
>429 
>430 
>431 
>432 
>433 
>434 
>435 



DFB 



%1 0000000 ; sets bit 7, setting grafix 



* masks for clearing VDC color byte 
HueNbMsk 



DFB 
DFB 



%00001111 
%1 1 110000 



* table of low bytes of 80 -column screen addresses for 

* leftmost byte in each row . . . cycles every 1 6 rows 



RwLoBs 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



00,50,A0 
F0,40,90 
E0,30,80 
DO, 20, 70 
CO, 10, 60 
B0 



* table holding high bytes of 80 -column screen addresses 

* for leftmost byte in each row — done for [m6[m6v[m6[m6ry 1 

* row, starting with row 



RHiBMst 



HEX 
HEX 
HEX 
HEX 

HEX 



00,05,0A 
OF , 1 4 , 1 9 
1E,23,28 
2D, 32, 37 
3C 



* table holding adjustments for high bytes of 80 -column 

* screen addresses for leftmost byte in each row — 

* cycles every 1 6 rows 



RHiBAdj 



OnPixel 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 



OffPixel 



DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 



00,00,00 
00,01 ,01 
01,02,02 
02,03,03 
03,04,04 
04 



%1 0000000 
%01 000000 
%001 00000 
%00010000 
%00001000 
%00000100 
%00000010 
%00000001 



%01 111111 
%1 01 1 1 1 1 1 
%1 1 01 1 1 1 1 

%1 1101111 
%1 1 1 1 01 1 1 
%1 1 1 1 1 01 1 
%1 1 1 1 1 1 01 

%1 11111 10 
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1D71 


00 


1D72 


OF 


1D73 


08 


1D74 


07 


1D75 


OB 


1D76 


04 


1D77 


02 


1D78 


OD 


1D79 


OA 


1D7A 


OC 


1D7B 


09 


1D7C 


06 


1D7D 


01 


1D7E 


05 


1D7F 


03 


1D80 


OE 



>436 
>437 
>438 
>439 
>440 
>441 
>442 
>443 
>444 
>445 
>446 
>447 
>448 
>449 
>450 
>451 
>452 
>453 
>454 
>455 
>456 
>457 
>458 
>459 



* table holding 80-column color nibbles in low bytes 

* each comment includes a decimal equivalent, the color, 



* and the BASIC color number 



HuNb80Tb 

* the signals: 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 



rgbi 

%00000000 
%00001111 
%00001000 
%00000111 
%00001011 
%00000100 
%00000010 
%00001101 
%00001010 
%00001100 
%00001001 
%00000110 
%00000001 
%00000101 
%00000011 
%00001110 



red, green, blue, and intensity 

black ( 1 ) 
15 white (2) 



7 

11 

4 

2 

13 

10 

12 

9 

6 

1 

5 

3 

14 



light cyan 
light purple 
dark green 
dark blue 
light yellow 
dark purple 
dark yellow 
light red 
dark cyan 
medium gray 
light green 
light blue 
light gray 



(4) 

(5) 

(6) 

(7) 

(8) 

(9) 

(10) 

(11) 

(12) 

(13) 

(14) 

(15) 

(16) 



--End assembly, 2689 bytes, Errors: 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 



REM 

REM 

REM 
REM 

REM 
REM 
REM 

REM 
REM 
REM 

REM 

REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 



PROGRAM IDENTIFICATION 

G80 TEST SUITE 

RUNS A SERIES OF PERFORMANCE TESTS 

... ON THE 80-COLUMN GRAPHICS ROUTINES 

BE SURE TO INSTALL THE 80-COLUMN 

. . . GRAPHICS ROUTINES BEFORE LOADING 

. . . AND RUNNING THESE TESTS 

YOU MIGHT ALSO WANT TO INSTALL THE TEXT 
. . . SCREEN DUMP ROUTINES TO GET HARDCOPY 
... OF THE RESULTS 



VERSION : 
TIMESTAMP 



1.00 

3:35 PM PST SEPTEMBER 20, 1986 



PROGRAMMED BY STAN KRUTE 

COPYRIGHT (C) 1986 BY STAN KRUTE' S HACKER & NERD 

18617 CAMP CREEK ROAD 
HORNBROOK, CALIFORNIA 96044 
[916] 475-3428 

ALL RIGHTS RESERVED 

CALL OR WRITE FOR HELP, BUG REPORTS, LICENSING, ETC. 



REM MAIN PROGRAM BLOCK 



GOSUB 1370 :REM INITIALIZE 

GOSUB 1 840 :REM RUN THE TESTS 

GOSUB 1950 :REM REPORT THE RESULTS 

END :REM THAT'S THAT 



Fig. 8-3. Source code for G80 Test Suite. 
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1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



REM INITIALIZE 



PRINT CHR$ (147) 

PRINT "PLEASE GIVE ME A RANDOM SEED 1-32768 

INPUT RS 



PRINT CHR$(147) 
PRINT "PLEASE GIVE 
INPUT SW 



ME A SCREEN WIDTH 



PRINT CHR$(147) 

PRINT "INITIALIZING RANDOM ARRAYS 

PRINT "WITH 100 VALUES ..." ; 



:REM 
:REM 



:REM CLEAR SCREEN 

:REM SEED PROMPT 

:REM GET RANDOM SEED 

:REM CLEAR SCREEN 

:REM WIDTH PROMPT 

:REM GET SCREEN WIDTH 

CLEAR SCREEN 

GIVE SOME FEEDBACK 



FAST 

DIM T(99), B(99), 
DIM RS (11) 
N = RND (-RS) 



L(99), R(99) 



FOR N = 1 TO 100 

T (N-1 ) = INT ( RND (1) * 200 ) 
B (N-1) = INT ( RND (1) * 200 ) 
L (N-1) = INT ( RND ( 1 ) * SW ) 
R (N-1 ) = INT ( RND ( 1 ) * SW ) 
IF N/10 <> INT (N/10) THEN 1660 
N$ = STR$ (N) 
PRINT N$ ; 

FOR P = 1 TO LEN (N$) 
PRINT CHR$ (157) ; 
NEXT P 
NEXT N 

RESTORE 1730 
FOR N = TO 5 

READ N$(N) 

NEXT N 



:REM LET'S MOVE 

:REM DIMENSE COORDINATE ARAYZ 

:REM DIMENSE RESULT ARRAY 

:REM SEED RANDOM NUMBERS 

:REM FILL ARRAYS 

:REM T () GETS VALUES 0..199 

:REM B () GETS VALUES 0..199 

:REM L () GETS VALUES 0..SW-1 

:REM R () GETS VALUES 0..SW-1 

:REM FEEDBACK EVERY 10 VALUES 
:REM STRINGIZE THE COUNT 
:REM PRINT THE COUNT 
:REM MOVE CURSOR BACK 
:REM MOVE CURSOR LEFT 



:REM PREP FOR DATA READ 
:REM READ 6 TEST NAME LABELS 
:REM READ A LABEL 



DATA "100 RANDOM DOTS", "100 RANDOM VERTICAL LINES" 

DATA "100 RANDOM HORIZONTAL LINES", "100 RANDOM LINES" 

DATA "100 RANDOM OUTLINED BOXES", "100 RANDOM FILLED BOXES" 



SLOW 
RETURN 

REM RUN THE TESTS 



:REM SLOW DOWN 



GOSUB 2150 
GOSUB 2340 
GOSUB 2530 
GOSUB 2720 
GOSUB 2910 
GOSUB 3100 
RETURN 



:REM DRAW 100 RANDOM DOTS 

:REM DRAW 100 RANDOM VERTICAL LINES 

:REM DRAW 100 RANDOM HORIZONTAL LINES 

:REM DRAW 100 RANDOM LINES 

:REM DRAW 100 RANDOM OUTLINED BOXES 

:REM DRAW 100 RANDOM FILLED BOXES 



REM REPORT THE RESULTS 

G80GRAPHIC 5,1 
GOSUB 3290 
FOR T = TO 5 



:REM 80 -COLUMN SCREEN, CLEARED 

:REM PRINT RESULT HEADINGS 

:REM FIVE TESTS ( 2 VARIANTS EACH ) 
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2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 



CHAR , 0, T*3 + 4, N$(T) 

CHAR , 50, T*3 + 4, "SLOW" 

CHAR , 60, T*3 + 4, STR$ ( RS ( T*2 



) 



CHAR , 0, T*3 + 5, N$(T) 

CHAR , 50, T*3 + 5, "FAST" 

CHAR , 60, T*3 + 5, STR$ ( RS ( T*2 + 1 )) 

NEXT T 



:REM PRINT TEST NAME 

:REM PRINT VARIANT MODE 

:REM PRINT RESULT 

:REM PRINT TEST NAME 

:REM PRINT VARIANT MODE 

:REM PRINT RESULT 



PRINT 
RETURN 



REM DRAW 100 RANDOM DOTS 



:REM 



A NICE BLANK LINE 



G80GRAPHIC 6,1 
SLOW 

S = TI 

FOR N = TO 99 : G80DRAW 

RS(0) = TI - S 

G80GRAPHIC 6,1 
FAST 

S = TI 

FOR N = TO 99 : G80DRAW 

RS(1 ) = TI - S 

RETURN 



:REM 
:REM 
:REM 



80-COLUMN GRAPHICS, CLEARED 

SET SPEED 

HERE COMES THE TEST 

L(N), T(N) : NEXT 

:REM STORE RESULT 

:REM 80-COLUMN GRAPHICS, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 

L(N), T(N) : NEXT 

:REM STORE RESULT 



REM DRAW 100 RANDOM VERTICAL LINES 

G80GRAPHIC 6,1 
SLOW 



:REM 
:REM 
:REM 



80-COLUMN GRAPHICS, CLEARED 

SET SPEED 

HERE COMES THE TEST 



S = TI 

FOR N = TO 99 

RS(2) = TI - S 

G80GRAPHIC 6,1 
FAST 

S = TI 

FOR N m TO 99 

RS(3) = TI - S 

RETURN 



G80DRAW 



L(N), T(N) TO L<N), B(N) : NEXT 
:REM STORE RESULT 



:REM 80-COLUMN GRAPHICS, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



G80DRAW 



L(N), T(N) TO L(N), B(N) : NEXT 
:REM STORE RESULT 



REM DRAW 100 RANDOM HORIZONTAL LINES 

G80GRAPHIC 6, 1 
SLOW 



:REM 80-COLUMN GRAPHICS, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



S = TI 
FOR N = 
RS(4) = 



TO 99 
TI - S 



G80DRAW , L(N), T(N) TO R(N), T(N) : NEXT 

:REM STORE RESULT 



G80GRAPHIC 6, 1 
FAST 

S = TI 

FOR N = TO 99 



:REM 80-COLUMN GRAPHICS, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



G80DRAW , L(N), T(N) TO R(N), T(N) : NEXT 
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2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 



RS(5) = TI 
RETURN 

REM -- 



:REM 



STORE RESULT 



DRAW 100 RANDOM LINES 



G80GRAPHIC 6, 1 

SLOW 

S = TI 

FOR N = TO 99 

RS(6) = TI - S 

G80GRAPHIC 6, 1 
FAST 



:REM 
:REM 

:REM 



80-COLUMN GRAPHICS, CLEARED 

SET SPEED 

HERE COMES THE TEST 



G80DRAW , L(N), T(N) TO R(N), B(N) : NEXT 

:REM STORE RESULT 



:REM 80-COLUMN GRAPHICS, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



S = TI 
FOR N = 
RS(7) = 

RETURN 



TO 99 
TI - S 



G80DRAW 



L(N), T(N) TO R(N), B(N) : NEXT 
:REM STORE RESULT 



REM DRAW 100 RANDOM OUTLINED BOXES 

G80GRAPHIC 6, 1 
SLOW 



:REM 
:REM 
:REM 



80-COLUMN GRAPHICS, CLEARED 

SET SPEED 

HERE COMES THE TEST 



S = TI 

FOR N = TO 99 

RS(8) = TI - S 

G80GRAPHIC 6, 1 
FAST 

S = TI 

FOR N = TO 99 

RS(9) = TI - S 

RETURN 



G80BOX , L(N), T(N), R(N), B(N) : NEXT 

:REM STORE RESULT 



:REM 80-COLUMN GRAPHICS, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



G80BOX , L(N), T(N), R(N), B(N) : NEXT 

:REM STORE RESULT 



REM DRAW 100 RANDOM FILLED BOXES 

G80GRAPHIC 6, 1 
SLOW 



:REM 
:REM 

:REM 



S = TI 

FOR N = TO 99 

RS(10) * TI - S 

G80GRAPHIC 6, 1 
FAST 

S = TI 

FOR N = TO 99 

RS(11 ) = TI - S 

RETURN 



80-COLUMN GRAPHICS, CLEARED 

SET SPEED 

HERE COMES THE TEST 



G80BOX , L(N), T(N), R(N), B(N), 1 : NEXT 

:REM STORE RESULT 



:REM 80-COLUMN GRAPHICS, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



G80BOX , L(N), T(N), R(N), B(N), 1 : NEXT 

:REM STORE RESULT 



REM PRINT RESULT HEADINGS 

CHAR , 0, 0, "G80 TEST SUITE" 
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3300 CHAR , 19, 
3310 PRINT RS ; 
3320 CHAR , 44, 
3330 PRINT SW 

0, 



3340 CHAR 
3350 CHAR 
3360 CHAR 
3370 CHAR 
3380 CHAR 
3390 CHAR 
3400 RETURN 



50, 
60, 
0, 
50, 
60, 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 



REM 

REM 

REM 
REM 

REM 
REM 
REM 
REM 
REM 

REM 
REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 



0, "RANDOM SEED =" 

0, "SCREEN WIDTH =" 

2, "TEST DESCRIPTION" 
2, "MODE" 

2, "TIME (IN JIFFIES)" 

3, '============== 

3, "====" 

3, "=================" 

PROGRAM IDENTIFICATION - 
G40 TEST SUITE 



RUNS A SERIES OF PERFORMANCE TESTS 

... ON THE 40-COLUMN GRAPHICS ROUTINES 

WRITTEN TO OUTPUT RESULTS TO 80 -COLUMN TEXT SCREEN 
( 'CUZ THERE'S MORE ROOM THERE ) 

YOU MIGHT WANT TO INSTALL THE TEXT SCREEN DUMP 
. . . ROUTINES TO GET HARDCOPY OF THE RESULTS 



VERSION : 
TIMESTAMP 



1.00 

3:28 PM PST SEPTEMBER 20, 1986 



PROGRAMMED BY STAN KRUTE 

COPYRIGHT (C) 1986 BY STAN KRUTE 'S HACKER & NERD 

18617 CAMP CREEK ROAD 
HORNBROOK, CALIFORNIA 96044 
[916] 475-3428 

ALL RIGHTS RESERVED 

CALL OR WRITE FOR HELP, BUG REPORTS, LICENSING, ETC. 



REM MAIN PROGRAM BLOCK 



GOSUB 1350 
GOSUB 1820 
GOSUB 1930 
END 



:REM 
:REM 
:REM 
:REM 



INITIALIZE 
RUN THE TESTS 
REPORT THE RESULTS 
THAT'S THAT 



REM INITIALIZE 



PRINT CHR$ (147) 

PRINT "PLEASE GIVE ME A RANDOM SEED 1-32768 

INPUT RS 

PRINT CHR$(147) 

PRINT "PLEASE GIVE ME A SCREEN WIDTH " ; 

INPUT SW 

PRINT CHR$(147) 

PRINT "INITIALIZING RANDOM ARRAYS " ; 

PRINT "WITH 100 VALUES ..." ; 

FAST 

DIM T(99), B(99), L(99), R(99) 
DIM RS (11) 



:REM CLEAR SCREEN 
" ; :REM SEED PROMPT 

:REM GET RANDOM SEED 

:REM CLEAR SCREEN 
:REM WIDTH PROMPT 
:REM GET SCREEN WIDTH 

:REM CLEAR SCREEN 

:REM GIVE SOME FEEDBACK 



:REM LET'S MOVE 



:REM 
:REM 



DIMENSE COORDINATE ARAYZ 
DIMENSE RESULT ARRAY 



Fig. 8-4. Source code for G40 Test Suite. 
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1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 



N = RND (-RS) 



FOR 



N 
T 
B 
L 
R 
IF 



= 1 TO 100 
(N-1 ) = INT 



RND 
RND 
RND 
RND 



(D 
(D 
(D 
(1) 



<> INT (N/10) THEN 1640 
STR$ (N) 



(N-1 ) = INT 
(N-1 ) = INT 
(N-1 ) = INT 
N/10 

N$ = 
PRINT N$ 

FOR P = 1 TO LEN (N$) 
PRINT CHR$ (157) ; 
NEXT P 
NEXT N 

RESTORE 1710 
FOR N = TO 5 
: READ N$(N) 
: NEXT N 

DATA "100 RANDOM DOTS", 



200 
200 
SW 

SW 



:REM SEED RANDOM NUMBERS 

:REM FILL ARRAYS 

:REM T () GETS VALUES 0..199 

:REM B () GETS VALUES 0..199 

:REM L () GETS VALUES 0..SW-1 

:REM R () GETS VALUES 0..SW-1 

:REM FEEDBACK EVERY 10 VALUES 
:REM STRINGIZE THE COUNT 
:REM PRINT THE COUNT 
:REM MOVE CURSOR BACK 
:REM MOVE CURSOR LEFT 



:REM PREP FOR DATA READ 
:REM READ 6 TEST NAME LABELS 
:REM READ A LABEL 



"100 RANDOM VERTICAL LINES" 



DATA "100 RANDOM HORIZONTAL LINES", "100 RANDOM LINES" 

DATA "100 RANDOM OUTLINED BOXES", "100 RANDOM FILLED BOXES" 



SLOW 



RETURN 



:REM 



SLOW DOWN 



REM RUN THE TESTS 



GOSUB 2130 
GOSUB 2320 
GOSUB 2510 
GOSUB 2700 
GOSUB 2890 
GOSUB 3080 
RETURN 



:REM DRAW 100 RANDOM DOTS 

:REM DRAW 100 RANDOM VERTICAL LINES 

:REM DRAW 100 RANDOM HORIZONTAL LINES 

:REM DRAW 100 RANDOM LINES 

:REM DRAW 100 RANDOM OUTLINED BOXES 

:REM DRAW 100 RANDOM FILLED BOXES 



REM REPORT THE RESULTS 

GRAPHIC 0,1 : GRAPHIC 5,1 
GOSUB 3270 



:REM 80 -COLUMN SCREEN, CLEARED 
:REM PRINT RESULT HEADINGS 



FOR T = TO 5 :REM 

CHAR , 0, T*3 + 4, N$(T) 

CHAR , 50, T*3 + 4, "SLOW" 

CHAR , 60, T*3 + 4, STR$ ( RS ( T*2 )) 



FIVE TESTS ( 2 VARIANTS EACH ) 
:REM PRINT TEST NAME 
:REM PRINT VARIANT MODE 
:REM PRINT RESULT 



CHAR , 0, T*3 + 5, N$(T) :REM 

CHAR , 50, T*3 + 5, "FAST" :REM 

CHAR , 60, T*3 + 5, STR$ ( RS ( T*2 + 1 )) :REM 
NEXT T 



PRINT TEST NAME 
PRINT VARIANT MODE 
PRINT RESULT 



PRINT 
RETURN 



REM DRAW 100 RANDOM DOTS 



:REM 



A NICE BLANK LINE 



GRAPHIC 1 , 1 
SLOW 



:REM 
:REM 
:REM 



40 -COLUMN HI -RES, CLEARED 

SET SPEED 

HERE COMES THE TEST 
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2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 



S = TI 

FOR N = TO 99 

RS(0) = TI - S 

GRAPHIC 1 , 1 
FAST 



S = TI 
FOR N = 
RS(1) = 

RETURN 



TO 99 
TI - S 



DRAW , L(N), T(N) : 
:REM 

:REM 
:REM 
:REM 

DRAW , L(N), T(N) : 
:REM 



NEXT 
STORE RESULT 

40 -COLUMN HI -RES, CLEARED 

SET SPEED 

HERE COMES THE TEST 

NEXT 
STORE RESULT 



REM 



DRAW 100 RANDOM VERTICAL LINES 



GRAPHIC 
SLOW 

S = TI 
FOR N = 
RS(2) = 

GRAPHIC 
FAST 

S = TI 
FOR N = 
RS(3) = 

RETURN 



1,1 



TO 99 
TI - S 



:REM 40 -COLUMN HI -RES, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



DRAW , L(N), T(N) TO L(N), B(N) : NEXT 

:REM STORE RESULT 



1,1 



TO 99 
TI - S 



:REM 40 -COLUMN HI -RES, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



DRAW , L(N), T(N) TO L(N), B(N) : NEXT 

:REM STORE RESULT 



REM DRAW 100 RANDOM HORIZONTAL LINES 

GRAPHIC 1 , 1 
SLOW 



S = TI 

FOR N = TO 99 

RS(4) = TI - S 

GRAPHIC 1 , 1 
FAST 

S = TI 

FOR N = TO 99 

RS(5) = TI - S 

RETURN 



:REM 40 -COLUMN HI -RES, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



DRAW , L(N), T(N) TO R(N), T(N) : NEXT 

:REM STORE RESULT 



:REM 40 -COLUMN HI -RES, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



DRAW , L(N), T(N) TO R(N), T(N) : NEXT 

:REM STORE RESULT 



REM DRAW 100 RANDOM LINES 



GRAPHIC 1,1 :REM 40-COLUMN HI -RES, CLEARED 

SLOW :REM SET SPEED 

: :REM HERE COMES THE TEST 

S = TI 

FOR N = TO 99 : DRAW , L(N), T(N) TO R(N), B(N) : NEXT 

RS(6) = TI - S :REM STORE RESULT 



GRAPHIC 1 , 1 
FAST 

S = TI 



:REM 40-COLUMN HI-RES, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 
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2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 



FOR N = TO 99 : DRAW , L(N), T(N) TO R(N), B(N) : NEXT 
RS(7) = TI - S :REM STORE RESULT 

RETURN 



REM 

GRAPHIC 
SLOW 

S = TI 
FOR N = 
RS(8) = 

GRAPHIC 
FAST 

S = TI 
FOR N = 
RS(9) = 

RETURN 



- DRAW 100 RANDOM OUTLINED BOXES 
1.1 



•.REM 
:REM 
:REM 



40 -COLUMN HI -RES, CLEARED 

SET SPEED 

HERE COMES THE TEST 



TO 99 
TI - S 

1,1 



TO 99 
TI - S 



BOX , L(N), T(N), R(N), B(N) : NEXT 

:REM STORE RESULT 



:REM 40 -COLUMN HI -RES, CLEARED 

:REM SET SPEED 

:REM HERE COMES THE TEST 



BOX , L(N), T(N), R(N), B(N) : NEXT 

:REM STORE RESULT 



REM DRAW 100 RANDOM FILLED BOXES 

GRAPHIC 1 , 1 

SLOW 



:REM 

:REM 

:REM 



S = TI 

FOR N = TO 99 : BOX , L(N), T(N) , R(N), B(N), 



RS(10) 



TI - S 



GRAPHIC 1 , 1 
FAST 

S = TI 

FOR N = TO 99 

RS{11 ) = TI - S 

RETURN 



:REM 

:REM 
:REM 
:REM 

BOX , L(N), T(N), R(N), B(N), 

:REM 



40 -COLUMN HI -RES, CLEARED 

SET SPEED 

HERE COMES THE TEST 

, 1 : NEXT 
STORE RESULT 

40 -COLUMN HI -RES, CLEARED 

SET SPEED 

HERE COMES THE TEST 

, 1 : NEXT 
STORE RESULT 



REM PRINT RESULT HEADINGS — 

CHAR , 0, 0, "G40 TEST SUITE" 

CHAR , 19, 0, "RANDOM SEED =" 

PRINT RS ; 

CHAR , 44, 0, "SCREEN WIDTH =" 

PRINT SW 

CHAR , 0, 2, "TEST DESCRIPTION" 

CHAR , 50, 2, "MODE" 

CHAR , 60, 2, "TIME (IN JIFFIES)" 

CHAR , 0, 3, "=================== 

CHAR , 50, 3, "====" 

CHAR , 60, 3, "=================" 

RETURN 
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Chapter 9: 
Human Interface 



This second programming project is a sound and music recording lab. You get to play 
with BASIC 7.0's built-in sound commands via a Macintosh-like graphic user interface. 
The lab lets you record, play, print, store, and load sound/musical compositions. This 
is a full-scale project, with all kinds of hot programming concepts for you to fiddle with. 
A number of programs and files are involved. I'll discuss each program's human inter- 
face. Let's start with the lab itself. There's a lot to cover. 

9.1 GETTING THE LAB GOING 

Prepare a disk that contains the following files: the BASIC 7.0 program Sound/Mu- 
sic Lab (see Fig. 16-8 for its listing), the compiled object code for S/M Asm 1 (see Fig 
16-1 for its assembly language source code), the compiled object code for S/M Asm 2 
(see Fig. 16-2 for its assembly language source code), the sequential data file S/M Help 
Pack (which is created by running S/M Help Packer— see Section 9.17 and Fig. 16-3 
for its listing), the sequential data file S/M Vars (which is created by running Make S/M 
Vars— see Section 9.15, and Fig. 16-4 for its listing), and the binary data file Finger Cur- 
sor (which you get by sending in for the program disk, working with the C-128's sprite- 
editing tools, or using the C-128's built-in monitor— see Chapter 11 for the do-it-yourselfer 
instructions.) 

Okay, you've got a disk packed with these six files. If you have a joystick, plug it 
into control port 2. To start up the lab, give this command: 

RUN "SOUND/MUSIC LAB" 
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Go out and make yourself a snack while the program loads itself and its various tools. 
It takes a few minutes with stock Commodore drives. When you come back you'll see 
a screen that looks like Fig. 9-1. The lab's message window tells you it's ready to roll. 

9.2 THE LAB SCREEN 

Let me describe the screen. At the top is a SOUND command window. There are 
two parts to this window, a title area containing the label SND, and a parameter area 
containing labels and (when you're working with the command) values for the SOUND 
command's eight parameters: voice, frequency value, duration, step direction for sweep, 
minimum frequency for sweep, step value for sweep, waveform, and pulse width. Check 
out the command descriptions in the C-128 Prg and other references for more detail 
on all the BASIC 7.0 sound commands and their parameters. 

Beneath the SOUND window is a PLAY command window. It also has two parts: 
a title area on the left, and a PLAY string editing area on the right. This is where you 
work with BASIC'S most powerful sound/music command, PLAY. 

Beneath the PLAY window and on the left is the ENVELOPE window. This is where 
you work with BASIC 7.0's ENVELOPE command. There is a title area, and a large 



SND 



U FRQCV DURTN D MINFR SUSTP U PW 
1 01500 00010 00000 00000 1 2048 



PLAY 



ENUELOPES 



» RTDCSSRLN PN 

0009000021536 

1 1200120010000 

2 0000150000000 

3 0005050030000 

4 0904040000000 

5 0009020110000 

6 0009000020512 

7 0009090022048 

8 0809040120512 

9 0009000000000 



UOL 



015 



TMP 



015 



FRRME 001 



F I LTER 



FREQ LBH RS 
0000 000 00 



GO 


FND 


LOD 


CLR 


H 

E 
L 
P 




SHO 


BKD 


SAO 


PRT 



READY TO ROLL 



END 



Fig. 9-1. The sound and music laboratory's main screen upon startup. 
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data area beneath. Each of the ten configurable envelopes has a line in the data area. 
Each line holds that envelope's six parameters: attack rate, decay rate, sustain length, 
release rate, waveform, and pulse width. There are labels for each parameter, and a 
number for each envelope. 

Three smaller windows lie to the right of the ENVELOPE window: a VOLume win- 
dow, a TEMPO window, and a FILTER window. Each has a title area and a data area. 
Each lets you use the corresponding BASIC 7.0 command. The VOLume window lets 
you set a volume level. The TEMPO window lets you set the speed of PLAYed 
sound/music commands. The FILTER window lets you set the five FILTER command 
parameters: filter cut-off frequency, low-pass filter on/off switch, band-pass filter on/off 
switch, high-pass filter on/off switch, and amount of resonance. Again, refer to the C-128 
Prg for more detail on these BASIC 7.0 commands and their parameters. 

Beneath the VOLume and TEMPO windows is a frame counter. Each time you 
tell the lab to record a particular command, it stores the command as an individual sound 
frame and moves on to the next frame. I call a collection of recorded lab commands a 
song. The frame counter tells you what frame of the current song the lab's working 
on. When the lab starts up, you're working on frame 1 of an empty song. There's a 
maximum of 1000 frames, although complex recordings might fill up memory before that 
frame limit is reached. 

Beneath the frame counter and the FILTER window are ten buttons and a message 
window. The button labelled GO is used to try out sounds and start playbacks. The but- 
ton labelled FWD is used to move the frame counter forward. The button labelled LOD 
is used to load in lab songs saved to disk. The button labelled CLR is used to clear the 
lab back to a fresh starting condition. The button labelled HELP lets you access the 
lab's help screens. The button labelled SHO lets you see the contents of any recorded 
frame. The button labelled BKD moves the frame counter backward. The button labelled 
SAVE is used to save the current lab song to disk. The button labelled PRT is used 
to print the current lab song on a printer. The button labelled END is how you leave 
the lab. To its left is the message window, which lets you and the lab trade messages 
drawn in green. 

9.3 MOVING & CLICKING AROUND THE LAB 

Moving the joystick moves the finger-cursor around the screen. You can also move 
it with the C-128's top row cursor keys. Pressing the joystick button or the C-128's 
Return key tells the program you want to select, or do, whatever the finger-cursor is 
touching. I call this joystick-keyboard-sprite point & select system a pseudo-mouse. When 
I say pseudo-mouse button, I mean either the joystick button or the C-128's return key. 
The tip of the finger-cursor's pointing finger is its hot spot, the part that the program 
tests when it's looking for the pseudo-mouse' location. If I tell you to move to a part 
of the lab, I mean that you should move the pseudo-mouse there. And when I tell you 
to click a part of the lab, I mean that you should move the finger-cursor's hot spot to 
that part of the screen and then press the pseudo-mouse button. You can click anywhere 
you want at any time. Finally, when you're not working in any of the lab's windows, 
just floating around freely, I call that the ready state. When the lab starts up, you're 
in the ready state. You can always get to the ready state by clicking outside any of the 
lab's windows or buttons. 
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9.4 USING THE HELP SCREENS 

Move the pseudo-mouse over to the HELP button. Click the pseudo-mouse. The 
lab image disappears, and one of 22 help screens appears. See Fig. 9-2 for an example. 
Five buttons are at the bottom of each help screen. Clicking one of the four leftmost 
buttons takes you to different help screens (with wraparound): FIRST, LAST, PREVI- 
OUS, or NEXT. The fifth button, labelled LAB, takes you back to the lab screen and 
the ready state. The lab's HELP button and the help screens' LAB button are hooked 
together so that mere clicking takes you back and forth, with no need for pseudo-mouse 
motion. 

The help screens summarize the lab's operation. They're not activated in a context- 
sensitive way. (See Chapter 12 for hints on changing that). The first HELP click in a 
user's lab session activates help screen 1. The help screens do have a memory, so sub- 
sequent HELP clicks during a lab session take the user to the last-viewed help screen. 



9.5 USING THE SOUND WINDOW 

Click anywhere inside the SOUND window to wake it up. The current SOUND 
command parameter values appear, and the lab sets you up to enter/edit the SOUND 
command parameter nearest your click. 



SOUND /MUSIC LflB 



HELP SCREENS 



*01 OF 22 



-MOUING & CLICKING AROUND THE LfiB- 



MOUE THE FINGER CURSOR WITH fl JOYSTICK 
PLUGGED INTO CONTROL PORT 2 OR WITH 
THE UPPER CURSOR-MOUEMENT RRROW KEVS. 



SELECT FUNCTIONS BY CLICKING THE 
JOYSTICK'S BUTTON OR PRESSING RETURN 



THE TIP OF THE FINGER CURSOR'S 
POINTING FINGER IS ITS HOT SPOT. THE 
PART THE PROGRAM TESTS WHEN FIGURING 
WHERE R CLICK OCCURRED. 



FIRST 



LAST 



PREU I OUS 



NEXT 



LAB 



Fig. 9-2. One of the sound and music laboratory's help screens. 
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You get to enter/edit text and numerical data in a number of the lab's windows. 
A set of common editing routines, detailed elsewhere in this chapter, are used. They 
operate similarly to the C-128's standard screen editing routines, with a few improve- 
ments. I'll describe editing in the SOUND window, but be aware that the same tech- 
niques work throughout the lab. 

The editing process centers around the editing cursor. It's an inverse block that 
indicates the current site of editing action. It moves along as you type. You can also 
move the editing cursor with the C-128's lower cursor keys (remember, the upper ones 
move the sprite finger-cursor). The insert key inserts spaces at the editing cursor, moving 
everything else to the right, just like standard C-128 screen editing. But unlike standard 
C-128 screen editing, one or more insert keypresses do not change the way the ma- 
chine interprets that many subsequent keypresses (a feature/bug that drives me nuts). 
The delete key deletes the character to the left of the editing cursor, just as it does 
in standard C-128 screen editing. 

So type in a value for the currently-selected parameter, and use the above-mentioned 
editing keys as necessary. When you finish, clicking the pseudo-mouse ends the data 
entry/editing session. What happens next depends on where the ending click occurred, 
whether the entered value is acceptable, and how any attempted recording may have 
gone. Here's a little chart that shows what happens: 



if the value 
entered is... 
acceptable 



acceptable 



acceptable 



acceptable 



no good 



and the ending 
click is in the ... 
SOUND window data area 



SOUND window title area 



GO button 



any other part of the lab 



SOUND window data area, 
SOUND window title area, or 
GO button 



this happens: 

the parameter goes to the entered 
Value and the lab sets you up to en- 
ter/edit the SOUND parameter 
nearest the ending click. 
The parameter goes to the entered 
value & the lab plays and tries to 
record the displayed SOUND 
command— if recording works, the 
lab sets you up to enter/edit the 
same SOUND parameter again, if 
recording fails, the SOUND win- 
dow deactivates, and you're back 
in the ready state. 
The parameter goes to the entered 
value, the lab plays the displayed 
SOUND command, and the lab 
sets you up to enter/edit the same 
SOUND parameter again. 
The parameter reverts to its prior 
value, the SOUND window deac- 
tivates, and the lab acts on the click 
as if it were entered from the ready 
state. 



The lab burps and tells you the en- 
tered value is no good, the param- 
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eter reverts to its prior value, and 
the lab sets you up to enter/edit the 
same SOUND parameter again, 
no good any other part of the lab The lab burps and tells you the en- 

tered value is no good, the param- 
eter reverts to its prior value, the 
SOUND window deactivates, and 
the lab acts on the click as if it were 
entered from the ready state. 

This may look intricate here on paper, but in the lab it's pretty intuitive. Here's 
a general summary: If you want to try out a SOUND command, you click on the GO 
button. If you want to record a SOUND command, you click on the SOUND window's 
title area. If you want to work on another SOUND parameter, click in its vicinity. If 
you want to stop working with the SOUND command, click somewhere else in the lab. 
If your entered parameter value is no good, the lab has you try it again, unless you indi- 
cated you wanted to go somewhere else in the lab. 

The lab's other windows follow this general pattern. Clicking in a window's title 
area means you want to record what you've edited. Clicking in a window's data area 
means you want the editing to take effect. Clicking outside the window means you want 
to forget what you've done. Of course, the nature of each window adds slight variations, 
but mostly there's consistency to the lab's responses. 

9.6 SOME RECORDING CONCEPTS 

When you choose to record a SOUND command, as detailed above, it's recorded 
at the current frame, then the frame counter advances. That's how all commands are 
recorded. The recording process always makes sure there's enough memory left to make 
the recording. If you want to re-record a frame, just move the frame counter back to 
that frame, as noted below in the frame counter discussion, and record a new frame 
over the old one. 

You can record seven types of commands: a SOUND command, a PLAY command, 
an ENVELOPE command, a VOLume command, a TEMPO command, a FILTER com- 
mand, and a Frame command. The first six correspond directly to BASIC 7.0's sound/mu- 
sic commands. The seventh command type, FRAME, lets a song jump to any of its 
frames. It gives the lab's recording process one of the rudimentary features of a pro- 
gramming language, the ability to branch. 

At any time you can play back the current song's recorded frames. Normally when 
the lab plays back a song it goes from one frame to another in sequential order. The 
FRAME command lets you change that by telling the lab's playback mechanism to jump 
to any frame. 

Recording frames does not mean they're saved to disk. For that, you have to ex- 
plicitly use the SAV button. 

9.7 USING THE PLAY WINDOW 

Click anywhere inside the PLAY window to wake it up. The last-worked-on PLAY 
string will appear, and the lab sets you up to edit that string. 
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Editing the PLAY string works similarly to the editing process described for the 
SOUND window, with one useful addition: the pseudo-mouse can be used to move the 
editing cursor. So if you don't want to use the lower cursor keys to move the editing 
cursor, you can do it with the pseudo-mouse. Just click it somewhere in the PLAY win- 
dow's data area while you're editing, and the editing cursor moves to that spot. 

Clicking the pseudo-mouse outside the PLAY window's data area ends the editing 
session. The results are similar to what happens when you finish editing a SOUND win- 
dow parameter, and depending on where the edit-ending click occurs, whether the en- 
tered string is acceptable, and how any attempted recording goes. Here's a summary: 
If you want to try out a PLAY string, click on the Go button. If you want to record 
a PLAY command, click on the PLAY window's title area. If you want to stop working 
with the PLAY command, click somewhere else in the lab. If you try to PLAY a lousy 
PLAY string via clicking the Go button or the PLAY window's title area, the lab will 
let you know with an error message, then return you to work on the string. By the 
way, sometimes a PLAY string may look legal, but still result in an error message when 
you try to play it. Try cleaning out any invisible weirdness by cruising over blank areas 
via the spacebar. That's always worked for me. 

PLAY is BASIC 7.0's most powerful sound/music command. You can do remarka- 
ble things with it. Take a look at the C-128 Prg (as usual) for more details on what you 
can use in a PLAY string, then spend some time trying things out in the lab. Actually, 
easy exploration of PLAY string possibilities is what led me to design and program the 
sound/music lab. 

9.8 USING THE ENVELOPE WINDOW 

The ENVELOPE window lets you adjust BASIC 7.0's ten built-in envelopes. Once 
again, refer to the C-128 Prg for information on the ENVELOPE command. After changing 
an envelope, you can listen to the effect by using the 'T' option in a PLAY string. 

After playing with the SOUND and PLAY windows, using this window should be 
easy. All ten envelopes and their current parameter settings are shown. The parameters 
are attack rate, decay rate, sustain level, release rate, waveform code, and pulse width. 
Just click on the parameter value you want to change and edit/enter a new value. The 
editing is done just as it was in the SOUND window. 

Again, a click of the pseudo-mouse ends parameter value entry/editing. If you click 
on the ENVELOPE window title, it'll record a frame that gives the ENVELOPE com- 
mand for the envelope whose parameter value you've worked with. If you click else- 
where in the ENVELOPE, the lab will just carry out the ENVELOPE command for 
the envelope whose parameter you've edited. If you click outside the ENVELOPE win- 
dow, the parameter reverts to its previous value. If your entered/edited value is out 
of range, the parameter reverts to its previous value. 

9.9 USING THE VOLUME WINDOW 

The VOLume widow lets you set the lab's volume via BASIC 7.0's VOL command. 
Click anywhere inside the VOLume window to wake it up. Then edit the volume setting 
just as you edited other settings. It can take on values in the range 0..15. When you 
finish editing, click the pseudo-mouse. If you click it outside the window, the value reverts 
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to its prior value.. If you click it in the window's data area, the lab's volume goes to 
the new value. If you click it in the window's title area, the lab's volume goes to the 
new value and the lab records a VOLume command frame. 

9.10 USING THE TEMPO WINDOW 

The TEMPO window lets you set the rate the PLAY command runs at. It does 
this via BASIC 7.0's TEMPO command, which takes values from 1 (slowest) to 255 
(fastest). Click anywhere inside the TEMPO window to wake it up. Then edit the tempo 
setting. When you finish editing, click the pseudo-mouse. If you click it outside the win- 
dow, the value reverts to its prior value.. If you click it in the window's data area, the 
lab's TEMPO goes to the new value. If you click it in the window's title area, the lab's 
TEMPO goes to the new value and the lab records a TEMPO command frame. 

9.11 USING THE FILTER WINDOW 

The FILTER window lets you play with BASIC 7.0's FILTER command. Five 
parameters can be worked with: filter cut-off frequency, low-pass filter on/off switch, 
band-pass filter on/off switch, high-pass filter on/off switch, and amount of resonance. 

As with the other command windows, you get to edit/enter values for each parame- 
ter. Refer to the C-128 Prg for details on appropriate values. The edit-ending pseudo- 
mouse click works in the standard way: click in the window's title area to record a FIL- 
TER command frame, click in the data area to affirm the editing/entry, click outside the 
window to ignore any changes and revert to the prior parameter value. 

The FILTER command's effects can be quite subtle. They really let you fine-tune 
the C-128's sounds. There's a lot to learn, so play away. 

9.12 USING THE FRAME COUNTER 

The frame counter's located just under the VOLume and TEMPO windows. It's 
there to show you what frame of its current song the lab's dealing with. It can also be 
used in a more active way. 

Click in the frame counter title or data area. That sets you up to enter/edit the frame 
counter value. The frame counter can take on values from 1 to 1000. As usual, click 
on the pseudo-mouse to end the editing. If the pseudo-mouse click is outside the frame 
counter's title or data areas, the frame counter will just revert to its prior value. If the 
click is in the frame counter's data area, the lab will accept the change and jump to that 
frame. 

Now, if the click is in the frame counter's title, the lab will try to record a Frame 
change command at the frame indicted by the counter's prior value, then advance the 
counter one frame. The recorded Frame command tells the lab to jump to the frame 
whose value you entered. 

Confused? Here's an example. The lab starts up with the frame counter indicating 
frame 1. Suppose you record a PLAY string command at frame 1. The frame counter 
then increments to frame 2. Now you record a SOUND command as frame 2. The frame 
counter then increments to frame 3. Now you click on the frame counter and edit the 
value to 1. To end this editing/entry, you click on the frame counter's title. The lab 
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will record frame 3 as a jump to frame 1, then increment to frame 4. Now click on the 
frame counter again and edit the frame counter value back to 1. This time, click on the 
frame counter data to end editing. That jumps the lab back to frame 1. Click the GO 
button to play this little three-frame song. The lab will do frame l's PLAY command. 
Then it'll do frame 2's SOUND command. Then it'll do frame 3's Frame command and 
jump back to frame 1. Then it'll do frame l's PLAY command again, then frame 2, and 

so on. 1,2,3,1,2,3,1,2,3 The song will play endlessly until you click the pseudo-mouse 

to stop it. 

9.13 USING THE TEN BUTTONS 

Okay, now let's go over the lab's ten buttons. We've already discussed clicking 
the GO button while working in the SOUND or PLAY windows: it lets you try out the 
SOUND or PLAY command. Clicking the GO button from the ready state tells the lab 
to play back the current song's recorded frames. It'll start at the current frame, as indi- 
cated by the frame counter, and end with the last recorded frame. If you want to halt 
the playback, just click the pseudo-mouse button outside the GO button. When you're 
done, the frame counter reverts to the value it had before GO was clicked. That way, 
it's easy to listen to a song over and over. 

The FWD button advances the frame counter. Click it once, and the lab advances 
to the next frame. Hold the pseudo-mouse button down, and the lab will keep advancing 
until you let up on it. When you screech to a stop, the lab lets you know whether the 
moved-to frame has been recorded or not. 

The LOD button lets you load pre-recorded sound/music lab songs from the disk 
drive you used to start the lab. Click it once, and the message window turns into a data 
entry window. Enter the name of the file you want to load. You've got all the standard 
lab editing tools, including the pseudo-mouse-controlled editing cursor movement de- 
scribed before under the PLAY window's explanation. When you finish entering the file 
name, click the LOD button again to tell the lab to go ahead and try to load the file from 
the disk in the startup drive. Or click outside the LOD button if you have second thoughts 
and decide not to load the file. As it does throughout the lab's operations, the message 
window will keep you apprised of the loading process. If the file loads successfully, the 
recorded song becomes the lab's current song, and the frame counter sets to frame 1. 

The CLR button resets the lab to its starting state. Any recorded frames are erased, 
so be sure you've saved any valuable work before clicking CLR. 

The HELP button,described earlier, gives you access to several help screens that 
describe the lab's operations. 

The SHO button lets you review any recorded frames. Click it once, and the cur- 
rent frame's command appears. For example, a SOUND command SHOws up by light- 
ing up the SND window and displaying the command's parameter values. Keep clicking 
the SHO button, and subsequent frames appear. When you want to stop the review, 
just click outside the SHO button. The frame counter remains at the last frame SHOwn. 
That makes it easy to edit something that's caught your eye. 

The BKD button moves the frame counter backwards. Click it once, and the lab 
goes back to the previous frame. Hold the pseudo-mouse button down, and the lab will 
keep retreating until you let up on it. When you stop, the lab lets you know whether 
the moved-to frame has been recorded. 
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The SAV button lets you save the lab's current song to a disk file. Click it once, 
and the message window turns into a data entry window. Enter the file name, just as 
described above for the LOD button. When you finish, click the SAV button to go ahead 
with the save attempt, or click outside the SAV button if you chicken out. 

The PRT command prints the current song's recorded frames on a printer. Be sure 
the printer is on-line before clicking this one. Figure 9-3 shows a sample printout. 

Finally, there's the END button. Clicking END takes you out of the lab, back to 
the C-128's READY prompt. As with CLR, be sure you've saved any senses-shattering 
symphonia before clicking this button. 

9.14 LABWRAPUP 

Okay, we've covered the lab's operation. It's a fairly robust program, able to han- 
dle almost any user input without crashing. Response time isn't bad, considering the 
small ratio of assembly language to BASIC 7.0 used in the coding. If you've used a Macin- 
tosh, Amiga, Atari ST, or other mouse-controlled machine, the user interface should 
be particularly intuitive. The key is the level of consistency and logicality in the lab's 
response to user actions. I designed the program as an exploratory learning tool, but 
you can actually use it to come up with some sophisticated recordings. Have fun pseudo- 
mousing around with it. 

9.15 USING MAKE S/M VARS 

Because Sound/Music Lab is so large, I created a separate program to prepare a 
file full of pre-initialized variables. That program's called Make S/M Vars. It creates a 
file called S/M Vars. Sound/Music Lab reads in the variable values contained in S/M Vars. 

If you bought this book's program disks, you don't need to run Make S/M Vars, 
since S/M Vars is supplied ready-made. Otherwise, you do. Here's how: 

Prepare a disk that contains the BASIC 7.0 program Make S/M Vars (See Fig. 16-4 
for its listing). Then give this command to load the file-maker: 

DLOAD "MAKE S/M VARS" 

Next, insert the disk you want the file of variable values on. This '11 usually be the 
disk that contains the BASIC 7.0 program Sound/Music Lab. 
Finally, run the file-maker with this command: 

RUN 

That's all there is to it. To check things out, do a catalog of the disk. You'll see 

a new file on it, S/M Vars. 

9.16 USING MAKE 40C SCREENS 

Make 40C Screens is a utility program I used to create the sound/music lab's help 
screens. It lets you edit and save complete 40-column text screens. Since it uses a fast 
assembly language editing routine, it's got a nice responsive feel. The screen files can 
be used in other programs. 
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As written, Make 40C Screens uses two monitors: a 40-column device hooked to 
the C-128's composite video output, and an 80-column device hooked to the 80-column 
video output. This eased the programming for me, but you may want to change it so 
it'll work without the 80-column monitor. See Chapter 12. 

Once again, if you bought the program disks, you have no need (beyond curiosity) 
to run Make 40C Screens. But if you didn't, you'll want to run it to create the screens 
required by the sound/music lab. Here's how: 

Prepare a disk that contains the BASIC 7.0 program Make 40C Screens (See Fig. 
16-5 for its listing), and the compiled object code for 40C Edit (See Fig. 16-6 for its 
assembly language source code). 

VERY IMPORTANT: If you want to print out the help screens, you'll also need 
the compiled object code for a program called Text Dumps. The Text Dumps object 
code comes on the disk of book programs, available from TAB. Source code is available 
from the author. If you don't have Text Dumps, you need to delete the following 
lines from Make 40C Screens: 1540, 1890, and 3080. Sorry we didn't include the source 
code for Text Dumps, but this book is already too big, and the functionality it adds to 
Make 40C Screens is a luxury. 

Once you've got your disk ready, rev up the C-128, turn on both monitors, and 
give this command: 

RUN "MAKE 40C SCREENS" 
The 80-column screen now displays a menu of command choices: 

Edit The Screen 

Clear The Screen 

Save The Screen 

Load The Screen 

Print The Screen {if you've got TEXT DUMPS} 

Quit The Program 

This is called command mode. From here, you can invoke any of the six displayed 
commands by typing its first letter. 

Press E to edit the 40-column screen. An editing cursor appears on that screen. 
You're now in 40-column editing mode, ready to work. You can type any printable charac- 
ter key. You can move the editing cursor with the cursor keys. You can use insert and 
delete to move things around. You can use reverson and reverseoff to get reversed charac- 
ters. All other keys are disabled, with one exception: the shift-return combination. Press 
that pair simultaneously to leave editing mode and return to command mode. 

The second command lets you clear the 40-column screen. Just press C, and the 
deed is done. 

The third command lets you save the 40-column screen.character information to 
a disk file (color information is not saved— see Chapter 12 for hints on changing this). 
Press S to save the current 40-column screen. The program will prompt you for a file 
name. If you're creating files for Sound/Music Lab, the file should be named S/M Help 
#, where the # is replaced by a number in the range 1..22. For example, the file for 
the lab's first help screen should be S/M Help 1, and the 22nd screen help file should 
be S/M Help 22. After getting a file name, the program will prompt you for a disk drive 

137 



device number. Usually, that'll be 8 or 9, depending on how your drives are set up. 
If you've developed cold feet and don't want to save the screen after all, type in a spuri- 
ous device number, like 32456. If you type in a valid device number, the program pro- 
ceeds to save the screen. 

The fourth command lets you load in saved 40-column screens. Press L to do so. 
The program will prompt you for a file name and a device number, just as it did for sav- 
ing screens. If your entries are valid, the program goes ahead and loads the saved screen. 

The fifth command uses Text Dumps to print out the 40-column screen. Remem- 
ber, if you don't have Text Dumps, you should disable this command by deleting lines 
1540, 1890, and 3080. If you do have Text Dumps, get your printer ready, then just 
press P to print out the screen. 

Finally, the sixth command lets you quit the program. Just press Q. 

Pretty simple program, eh? In fact, this is the minimal functionality needed for any 
text editor. And I stress minimal. 

Okay, now you need to save 22 help screens, named as detailed above, onto a disk. 
Since this book is already too large, I haven't included the text for the 22 help screens. 
They're just a synopsis of Sections 9.1 through 9.14. So you get to make up your own 
screens. If you're not feeling creative, just save 22 screens worth of garbage. But you 
do need 22 appropriately-named help screens for the program S/M Help Packer (and, 
in turn, Sound/Music Lab) to run. 

9.17 USING S/M HELP PACKER 

When the sound/music lab is running, the help screens and their entourage sit in 
the top half of RAM bank l's memory. To facilitate loading, I wrote the program S/M 
Help Packer, which gets everything saved as one big block of binary data, the file S/M 
Help Pack. 

Again, if you bought the program disks there's no need to run S/M Help Packer. 
For everyone else, here's how to do it: 

Prepare a disk that contains the BASIC 7.0, program S/M Help Packer (See Fig. 
16-3 for its listing). Then give this command: 

DLOAD "S/M HELP PACKER" 

Now insert a disk that contains the following: the twenty-two help screen files (dis- 
cussed in the previous section), and the binary data file Finger Cursor (discussed back 
in Section 9.1). Put it into the drive you loaded S/M Help Packer from, then give this 
command: 

RUN 

It'll take a few minutes for the program to load in all the information it'll be saving. 
When it finishes, it'll prompt you for another disk. Put the disk you want to run Sound/Mu- 
sic Lab from into the same drive you've been using, making sure with a CATALOG 
command that the disk has at least 126 free sectors. Then press the spacebar. It'll take 
another few minutes for the program to save S/M Help Pack to this disk. When it fin- 
ishes, it'll print a disk catalog on the screen. You should see the new file, S/M Help 
Pack, with a size of 126 blocks. 
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Chapter 10: 
System Interface 



Due to the size of this project, I've only got room to touch on a small selection of system 
interface issues. You can refer to Appendix D: System Interface Summary to locate in- 
stances of the following items and others in the project's programs' code. 

10.1 USING THE STANDARD TEXT SCREEN 
RAM FOR ASSEMBLY LANGUAGE ROUTINES 

Sound/Music Lab is a very large BASIC program. In fact, it eats up almost all of 
RAM bank 0. And it uses a number of assembly language routines. Due to what these 
routines do, and the C-128's system architecture, coding's a lot easier if they also live 
in RAM bank 0. One group of routines, S/M Asm 2, lives in the part of RAM bank 
that's set aside for such stuff: $1300-$1BFF. But there's more, so I had to look around 
for another area. Since Sound/Music Lab uses the 40-column bit-mapped graphics screen, 
the 40-column text screen area, $0400-$07FF, is free. And that's where I stick the other 
group of routines, S/M Asm 1. 

The only detail to attend to before loading the routines into that area is switching 
to the graphics screen. In Sound/Music Lab, this is done in the subroutine Draw A Fresh 
Screen (lines 2910-3040). Then the assembly language routines are loaded via the next 
subroutine, Update The Screen, in line 3220. 

10.2 READING FROM ANY MEMORY BANK VIA INDFET 

The C-128 kernel provides a useful routine for reading from any byte in any mem- 
ory bank, IndFet. When this routine is called, the A register should contain the address 
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of a zero-page location that contains (along with the next zero-page location) the address 
of the byte in memory you want IndFet to read, and the X register should contain the 
number of the memory bank. Upon return, the A register contains the desired byte. 
IndFet is used in the subroutine :SetStrgz, lines 40-139 of S/M Asm 1 B.S. IndFet 
is used there to examine bytes of a BASIC string that's stored in RAM bank 1. 

10.3 WRITING TO ANY MEMORY BANK VIA INDSTA 

IndSta is a C-128 kernel routine that lets you write a value to any byte in any mem- 
ory bank. When this routine is called, the A register should contain the value to be stored, 
the X register should contain the number of the memory bank, and memory location 
StaVec ($02B9) should contain the address of the byte in memory you want IndSta to 
write to. IndSta is also used in the subroutine :SetStrgz, lines 40-139 of S/M Asm 1 
B.S. IndSta is used there to store bytes into a BASIC string that's stored in RAM bank 1. 

10.4 CHANGING A BASIC CHARACTER 
STRING FROM ASSEMBLY LANGUAGE 

The rinsert and :delete subroutines, lines 569-636 of S/M Asm 1 B.S and lines 3-79 
of S/M Asm 1 C.S, show how a BASIC character string can be changed from assembly 
language. The keys to this process are the IndFet and IndSta routines mentioned in 
Sections 10.2 and 10.3. Those routines are used to move characters into and out of the 
string. 

BASIC strings are stored in RAM bank 1. How to find a specific string? Just use 
BASIC 7.0's POINTER command. It returns a pointer to the first byte of a variable. 
Examples can be found in lines 6800 and 6810 of Sound/Music Lab. 

Important note: The strings worked on by :insert and rdelete have a constant length. 
The characters in a string are changed, but the length is not. It IS possible to change 
the lengths of BASIC strings from assembly language, but it's a pain. 

10.5 DRAWING CHARACTERS ON THE 
40-COLUMN BIT-MAPPED GRAPHICS SCREEN 

Standard C-128 text characters are drawn in an 8-horizontal-dot by 8-vertical-dot 
matrix. A byte codes 8 horizontal dots. Eight bytes code one character's graphic pat- 
tern. When a character's on the text screen, the VIC chip grabs that character's group 
of 8 pattern bytes from the C-128's character ROM and pops it into memory. 

To draw standard characters on the bit-mapped screen, we just mimic in software 
what the VIC chip does via hardware. The routine DrawBMChar, in S/M Asm 1 C.S, 
shows the details. Here's a summary: DrawBMChar is called with a C-ASCII character 
code and a location. The location is in a 40-column by 25-row matrix, same as the 
40-column text screen. First, convert the character's C-ASCII code into a poke code. 
Next, locate the character ROM. Then multiply the character's poke code by 8 to get 
an offset into the character ROM. Add that offset to the ROM's starting address to get 
the starting address of the character's eight pattern bytes. Then the character's row 
and column location is used to figure out the corresponding set of eight bytes in the bit- 
mapped screen's RAM buffer. This is done by taking the starting location of the bit-map 
screen and adding an offset. Check out the source code or the algorithms for the details 

140 



of figuring the offset. Now we've got a pointer into the character ROM and a pointer 
into the bit-map screen RAM. We move into a bank 14 memory configuration, which 
lets us read from character ROM and write to bit-map screen RAM. Then the eight 
pattern bytes are transferred. 

10.6 CONVERTING C-ASCII CODES TO SCREEN POKE CODES 

Like many simple translation problems, converting from a C-ASCII code to a screen 
poke code can be done in two ways: use a translation table or an algorithm. In this case, 
a table is very fast, but uses one byte for each character in the character set. An al- 
gorithm is a bit slower than a table, but takes up less room due to coherence— repetitive 
patterns— in the translations. In the subroutine CAsc2Pok1 , located in S/M Asm 1 C.S, 
I use the algorithmic method. After all, since we're working in assembly language, a 
little more time is a very little more time. And the code only takes up 50 bytes, which 
is important in this case because the Sound/Music Lab is squeezed tight for space. 

How does the translation algorithm work? Well, the relationship between C-ASCII 
and poke codes works in clumps. That is, a range of C-ASCII values, usually 32 or 64 
at a crack, stay together when transformed into poke codes. The algorithm is just a set 
of tests that test a C-ASCII code against the boundaries of such a range; when the ap- 
propriate range, or clump, is found, the C-ASCII code can be easily adjusted into its 
corresponding poke code. A little study of CAsc2Pok1 should show the elegant simplic- 
ity of this approach. 

10.7 FINDING THE 40-COLUMN TEXT SCREEN 

You can move the C-128's 40-column text screen buffer almost anywhere in RAM 
memory (See Sections 10.20 and 10.21). But how to find it? Well, there are two things 
to determine: which memory bank it's in, and what's its starting address. 

The 40-column text screen buffer's memory bank is indicated by bit 6 of memory 
location $D506. If this bit is cleared to 0, the 40-column screen buffer's in RAM bank 
0. If it's set to 1, the buffer's in RAM bank 1. 

Finding the starting address is a bit more complex. Addresses are 16 bits long. The 
40-column text screen buffer can only start on a IK boundary. That means that, no mat- 
ter where it's living, bits 0-9 of the starting address will be 0. Bits 10-13 of the starting 
address come from bits 4-7 of $D018, which is VIC register 24. You can also find those 
four bits in bits 4-7 of $0A2C (2604), which is a shadow register for $D018. Finally, 
bits 14-15 of the starting address are derived by flip-flopping bits 0-1 of memory location 
$DD00. 

If all that seemed a bit obscure, you can look at the routine BasBnk40, in lines 
579-645 of S/M Asm 2 B.S. This routine gets used by the Sound/Music Lab when it 
needs to find one of its help screens, which can live anywhere. 

10.8 USING A KEYCHK DETOUR TO 
HIDE SELECTED KEYS FROM THE SYSTEM 

The Sound/Music Lab lets you move a sprite cursor around on the screen by using 
a joystick or pressing one of the C-128's upper arrow keys. Pressing the return key 
is made equivalent to pressing the joystick's button. 
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Normally, these keys are handled by the system. What we need to do is intercept 
any presses of these joystick-equivalent keys and hide them from the system. Then we 
can do our own keyboard scan (See Section 10.9), and, if one of the keys is pressed, 
act on the press in our own way. 

The trick is done by detouring the C-128's KeyChk routine. KeyChk is part of the 
system's regular keyboard scan. On entry to KeyChk, the A register holds the keycode 
of a pressed key. We reroute the call to KeyChk to a detour routine. The detour rou- 
tine checks to see if the entry keycode is one we want to hide. If the keycode is such 
a beast, we hide it by clearing the A register to 0. Otherwise we leave A alone. In either 
case, the detour ends by jumping to the normal KeyChk routine. 

You can see an example of this in S/M Asm 2 A.S. OurKeyChk is the detour rou- 
tine. The routine Install installs it, and Unlnstall removes it. 

10.9 DETOURING IIRQ TO IMPLEMENT A PSEUDO-MOUSE AND CURSOR 

Sound/Music Lab detours calls to the C-128's regular IIRQ routine in order to im- 
plement a pseudo-mouse and cursor sprite. IIRQ is a system heartbeat routine, called 
every sixtieth of a second to do things like reading the keyboard and updating the VIC 
chip. It's tied to the system's vertical retrace interrupt. The detour routine is called 
OurllRQ in S/M Asm 2 A.S, is our detour. Like OurKeyChk, it gets installed by In- 
stall, and removed by Unlnstall. 

Details of OurllRQ can be seen in Fig. 15-2, sheets 2-4, and the S/M Asm 2 A.S 
source code. Here's a summary: First, it checks to see if any of the upper arrow keys 
are being pressed. Then it looks to see if the joystick is being pressed in any direction. 
If the joystick and one of the arrow keys is giving directional information, the joystick 
info takes precedence. 

Next: if the cursor sprite is currently in motion, and the user is indicating, via joystick 
or upper arrow keys, a change in that motion, the cursor sprite is stopped. 

If the cursor sprite is stopped, and the user is indicating, via joystick or upper arrow 
keys, that he wants it to move, a call is made to the routine SetMoshn to get it moving 
in the appropriate direction. 

Then OurllRQ checks to see if the joystick button or the return key is pressed. 
It sets a pseudo-mouse click state flag to "pressed" or "not pressed" based on the 
result. Finally, OurllRQ jumps to the regular IIRQ routine. 

10.10 DIRECTLY READING THE KEYBOARD FROM ASSEMBLY LANGUAGE 

The routine OurllRQ, mentioned in Section 10.9, directly reads the C-128 keyboard 
from assembly language. How's it done? Well, the C-128 keyboard is wired as a matrix 
of control lines, which we'll call horizontal and vertical control lines. There's a nice illus- 
tration of this on page 642 of the C-128 Prg. The basic idea for reading the keyboard 
is that you send signals out on the vertical control lines, and look for results on the horizon- 
tal control lines. Now for some details: 

The horizontal control lines are called R0-R7 (R stands for Row). They're accessed 
via bits 0-7 of memory location $DC01, also known as CIA port A, set up for input. 
The vertical control lines are C0-C7 and K0-K2 (C and K stand for Column). C0-C7 are 
accessed via bits 0-7 of $DC00, which is CIA port B, set up for output. K0-K2 are ac- 
cessed via bits 0-2 of $D02F, which is the VIC chip's register 47. 

142 



To check a key, you clear its vertical control line's bit to 0, set all other vertical 
control line bits to 1, then read the key of interest's horizontal control line's bit. The 
key is pressed if the horizontal control line bit shows up cleared to 0. 

OurllRQ has two specific examples of this. The first: In lines 398-404, the code 
looks at the four upper arrow keys. The four keys share one vertical control line, K2, 
and four consecutive horizontal control lines, R3-R6. The K2 line is cleared to 0, all other 
vertical control lines are set to 1, and the result is read from $DC01. Since the keys 
have consecutive horizontal control lines, after appropriate masking and shifting we use 
the four bits of interest in the result as an index into a table of directions. This lets us 
handle cases where more than one key is pressed. 

The second keyboard-reading example from OurllRQ is in lines 480-489, where we 
look for a press of the return key. Its vertical control line is CO, so we clear that to 
0, and set all others to 1. The return key's horizontal control line is Rl, so if bit 1 of 
$DC01 comes back clear, we know that return is being pressed. 

10.1 1 DIRECTLY READING THE JOYSTICK FROM ASSEMBLY LANGUAGE 

The four directional switches for joystick 1, connected through control port 2, are 
linked to bits 0-3 of $DC00. Bit 4 reflects the state of the joystick's button. The four 
directional switches for joystick 2, connected through control port 1, are linked to bits 
0-3 of $DC01. Bit 4 reflects the state of the joystick's button. A bit cleared to indi- 
cates a joystick directional switch or button being pressed. You can use the pattern of 
set and cleared directional switch bits as an index into a table of direction codes. If you're 
just using one joystick, joystick 1 is preferred, since its control lines more easily avoid 
keyboard interference. That's what we do with Sound/Music Lab. 

An example of joystick reading is seen in lines 412-419 and 473-478 of OurllRQ. 
In 412-419, joystick l's byte is read from $DC00, non-directional bits (4-7) masked out, 
the result used as index into a table of direction codes, and the appropriate direction 
code then stored away. In lines 473-478, joystick l's byte is read from $DC00, non- 
button bits masked out, and the result used to determine the state of the joystick's button. 

10.12 SPRITE MOTION FROM ASSEMBLY LANGUAGE 

Sprites that you've activated in the normal ways can be set into motion from assem- 
bly language. All you need do is store an appropriate sprite motion data record into the 
sprite speed and direction tables. The system's standard vertical retrace interrupt rou- 
tine will then take over, and adjust the sprite's position as needed every sixtieth of a 
second. 

Appendix G gives a complete description of these speed and direction tables. And 
the code for the routine SetMoshn, in S/M Asm 2 B.S, shows how to use assembly- 
language to store a sprite motion data record into the tables. 

10.13 SPRITE POSITIONING FROM ASSEMBLY LANGUAGE 

Unless you disable some low-level flags, you can't position sprites from assembly 
language by just changing the values in the appropriate VIC registers. What you need 
to do is store position data in a set of sprite shadow registers. That's because routines 
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triggered by the system's standard vertical retrace interrupt updates the VIC registers 
every sixtieth of a second with values taken from these shadow registers. 
Appendix G gives a complete description of these sprite shadow registers. 



10.14 INVERTING A CELL OF THE 40-COLUMN BIT-MAPPED SCREEN 

In standard bit map mode, color for each 8-pixel by 8-pixel region, or cell, is deter- 
mined by a color byte in a video matrix that usually lives at memory locations 
$1C00-$1FE7. This video matrix views the 320-pixel wide by 200-pixel high bit map 
screen as 40 cells wide and 25 cells high, set up like a 40-column text screen. The upper 
nibble of a cell's color byte gives the cell's foreground color, the lower nibble gives the 
background color. To invert a cell, just swap the nibbles in its color byte. 

The routine HRBandlnvt, located at lines 360-447 of S/M Asm 2 B.S, inverts bands 
of bit-mapped cells for the Sound/Music Lab. Lines 411-428, in particular, show the req- 
uisite nibble swap. 

10.15 INVERTING A CELL OF THE 40-COLUMN TEXT SCREEN 

There's an easy way to invert characters on the 40-column text screen. For each 
character in either of the two character sets, there's a reversed image of the character 
whose poke code is different only in that bit 7's set to 1. So you can invert a character 
by flip-flopping bit 7. In 6502 assembly language, this can be done by EORing the poke 
code with the mask value $10000000. 

The routine TX40Bandlnvt, located at lines 448-530, inverts bands of 40-column 
text screen characters for the Sound/Music Lab. Line 505 shows the high bit flip-flopping. 
By the way, this routine works no matter where the 40-column text screen's living. 

10.16 LOADING DATA INTO MEMORY BANK 1 

The Sound/Music Lab loads twenty-two help screens into RAM bank 1, above 
BASIC'S variables. There are two steps to this process. 

First, the top of BASIC variables is moved down to make room for the help screen 
data. Two pointers have to be adjusted: FreTop, located at $0035-$0036, and 
Max_Mem_1 , located at $0039-$003A. This is done in lines 1750-1770 of Sound/Mu- 
sic Lab. 

Second, the help screens are loaded from a disk file with the bank parameter set 
to 1. This is done in line 3230 of Sound/Music Lab. 

10.17 DEALING WITH SPRITES IN ALTERNATE TEXT SCREENS 

When the user clicks the Sound/Music Lab's help button, the display changes from 
the bit-mapped image of the lab to a 40-column text screen showing one of the help pages. 
The sprite cursor needs to come along for the ride. 

How is this done? Well, when VIC is showing a 40-column text screen, there's got 
to be a pointer to any sprite data located just above the 1000-byte text screen buffer. 
In addition, the sprite data itself must be living somewhere in the same 16K quadrant 
as the text screen. 
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Take a look at the program S/M Help Packer (Fig. 16-3). It takes the lab's help 
screens, each of which is just the saved image of an information packed 40-column screen 
buffer, and loads them into RAM bank 1 memory at the addresses they're to live at. 
For each screen, it also pokes a pointer to sprite data into the appropriate address, 1016 
bytes above the start of the screen. Finally, copies of the lab's finger cursor screen data 
are stored into empty real estate in each of the help screen's two quadrants. Then the 
whole block, with its help screens, sprite data pointers, and sprite data, is saved as the 
binary file S/M Help Pack. 

The Sound/Music Lab loads this file right back to where it was saved from. Then, 
when the lab tells VIC to switch to a help screen, the appropriate sprite data pointer 
and sprite data are right where they're supposed to be, and VIC can show the lab's 
sprite finger cursor with hardly a blink. 

10.18 DIRECT TEXT DISPLAY FROM ASSEMBLY LANGUAGE 

The basic idea is simple: Given a C-ASCII character, you figure out its poke code, 
then store that code at a particular location in the 40-column screen memory that cor- 
responds to a desired row and column position. 

Section 10.6 above describes how poke codes are derived from C-ASCII. Section 
10.7 shows how the base of 40-column screen memory is derived. A particular location 
corresponding to a row and column position is figured by multiplying the 0-based row 
by 40, then adding in the 0-based column, then adding that offset to the screen memory's 
base address. 

Example code can be found in a key routine from 40C Edit (Fig. 16-6), PrintChar. 
Located in lines 308-350, PrintChar prints a character to the 40-column screen, then 
advances the cursor one position to the right, with wraparound at the end of a line and 
at the end of the screen. The algorithm for PrintChar is shown in sheets 3-4 of Fig. 15-6. 

10.19 BASIC-ASSEMBLY LANGUAGE PARAMETER PASSING 

BASIC'S SYS command lets you call an assembly routine, and (optionally) pass in- 
formation via the A, X, Y, and Status registers. For example, 

SYS 1123, 12, 13, 18, 138 

. . . will jump to the assembly language subroutine at 1123 ($423), with A containing 
12 ($0C), X containing 13 ($0D), Y containing 18 ($12), and the Status register contain- 
ing 138 ($8A). 

You can also pass information back to BASIC from an assembly language routine. 
The RREG command, not documented by Commodore but quite functional, lets you 
do this. The syntax is similar to that for SYS. For example, 

RREG AV, XV, YV, SV 

... will assign to the BASIC variable AV the value the A register had when the 
last assembly language subroutine called by SYS returned. XV will get the value the 
X register had, YV will get the value of Y, and SV will get the value of the Status register. 
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R REG is usually used right after a SYS command. For example, take a look at line 
1500 of Sound/Music Lab: 

1500 SYS HA(3), HA(4), HA(5): RREG MA 

This SYS command calls on the AreaSearch routine from S/M Asm 2, passing via 
A and X a pointer to the LabAreas data table. AreaSearch returns an area result code 
in the A register, and the RREG command here assigns it to the BASIC variable MA. 

Note that you can pass more than three values to an assembly language routine or 
BASIC by using two of the processor's registers to pass a pointer to a block of values. 
Take a look at lines 6770-6920 of Sound/Music Lab, for example: a pointer to an array 
of values is passed via A and X to the assembly language routine StrngRectEdit. 

10.20 SETTING VIC'S RAM BANK AND QUADRANT (VIDEO BANK) 

The C-128's VIC chip can look at one 16K video bank, or quadrant, of memory at 
a time. It defaults to looking at video bank ($0000-$3FFF) in RAM bank 0. 

In Sound/Music Lab, we move VIC's focus when the user chooses to look at the 
help screens. They live in quadrants 2 ($8000-$BFFF) and 3 ($C000-$FFFF) of RAM 
bank 1. 

Bit 6 of $D506 (54534) selects VIC's RAM bank. Set the bit to 1 to get VIC looking 
at RAM bank 1, clear it to for RAM bank 0. Bits and 1 of $DD00 (56576) select 
the video bank: %11 selects video bank ($0000-$3FFF), %10 selects video bank 1 
($4000-$7FFF), %01 selects video bank 2 ($8000-$BFFF), and %00 selects video bank 
3 ($C000-$FFFF). 

Lines 11680, 11690, 12020, 12090, and 12100 of Sound/Music Lab give examples 
of how these bits are set/cleared. 

10-21 SETTING VIC'S 40-COLUMN TEXT SCREEN STARTING ADDRESS 

As mentioned in Section 10.7, the C-128's 40-column text screen can live anywhere. 
How to move it to a particular spot? 

Well, first you set the VIC RAM and video banks, as shown in Section 10.20. Then 
it's time to place the 40-column text screen on a IK boundary within VIC's 16K video 
bank. There are (obviously) 16 possible locations. And four bits are needed to encode 
16 values. The upper nibble— bits 4-7— of VIC register 24 ($D018) are used to indicate 
the IK boundary the text screen sits at. This VIC register has a shadow register at 
$0A2C (2604). Plug a value into the upper nibble of 2604, and the system's raster interrupt 
routines automatically stick it into VIC register 24. 

You can see an example of moving this text screen pointer in line 12010 of Sound/Mu- 
sic Lab. By just changing the pointer, we can move very quickly between help screens. 

10.21 CHANGING PROCESSOR SPEED 

The C-128's processor can run at two speeds. Unfortunately, the VIC chip goes 
to sleep and blanks the screen when the processor's running at its fastest. So we can't 
run the Sound/Music Lab at high speed if we want to see anything. 
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However, sometimes we don't need to see anything: during lab initialization and 
resetting. And those are both lengthy processes that appreciate the speedup. So I run 
the processor at its faster (2 megahertz) speed. 

You can see examples of this in the Sound/Music Lab subroutines Set Up The Lab 
and Clear Click. 



10.22 DETERMINING WHICH DRIVE WE (PROBABLY) CAME FROM 

When Sound/Music Lab starts up, it needs to load a number of auxiliary files. It 
expects them to be on the same disk that it was loaded from. How can it tell which drive 
that disk is in? Memory location 186 ($00BA) holds the device number of the most re- 
cently accessed file system device. If we look there right after loading in Sound/Music 
Lab, before any new file system calls mess up the value, we'll find the device number 
of the drive Sound/Music Lab came from. 

Take a look at lines 1830-1840 and 3200-3230 of Sound/Music Lab for examples 
showing how this address and its value are used to load in auxiliary disk files. Of particu- 
lar note is the fact that you can use a variable to provide a parameter in a file system 
command, so long as the variable name is enclosed in parentheses. 

10.23 USING THE CHAR COMMAND FOR PRECISE TEXT POSITIONING 

One of the nicest additions to BASIC 7.0 is the CHAR command. It lets you easily 
print strings at precise locations on the text or bit-mapped screen. On the C-64 you 
had to go through some contortions to achieve the same effect. You'll notice I've used 
CHAR throughout Sound/Music Lab for text printing. For example, take a look at lines 
3450, 3690, 3840, 3950, 4060, and 4210. 

10.24 DEALING WITH DISK WACKINESS 

Commodore disk drives are notorious for wacky behavior. There's not a lot a pro- 
gram can do about the drives. What it CAN do is note when a disk error's occurred, 
and recover gracefully. 

The reserved variable DS (for Disk Status) takes on a non-zero value when there's 
a disk error. If you check it after disk operations, and act appropriately, you can avoid 
most disk-caused program crashes. For example, the Sound/Music Lab subroutine LOAD 
CLICK makes two checks of DS after critical disk operations; see lines 10620-10640, 
10900, and 10960-10980. And DS has a companion, the reserved variable DS$. It'll contain 
a descriptive error string if there's been a problem. Note how we use DS$ in line 10970 
to notify the user of what happened if LOAD CLICK'S disk operations have hit a snag. 

10.25 IS A SOUND STILL SOUNDING? 

There are times in the operation of the Sound/Music Lab when we want a sound 
to finish sounding before the lab goes on to another task. In fact, there's a subroutine 
in Sound/Music Lab dedicated to just that purpose. It's called (surprise!) LET SOUND 
FINISH (lines 15810-15850). The key to this subroutine are two memory locations, $1282 
(4738), called SoundTimeLo, and $1285 (4741), called SoundTimeHi. When both those 
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locations take on the value 255, a sound triggered by one of the BASIC 7.0 sound com- 
mands has finished sounding. So LET SOUND FINISH just waits until that's the case. 

10.26 SETTING UP AN ERROR HANDLER 

I'm obsessed with creating programs that don't crash too often. Besides providing 
the DS/DS$ mechanisms mentioned in Section 10.24, BASIC 7.0 gives us the TRAP, 
ERR$, ER, EL, RESUME, and NEXT. TRAP lets you designate an error-handling 
subroutine that'll come into play when there's a problem executing a BASIC statement. 
ERR$ is a function that produces a descriptive string corresponding to an error-code 
number. After an error that triggers TRAP, the reserved variable ER will contain an 
error-code for the wacky event, and EL will contain the line that was being executed 
when it occurred. After such an error, RESUME tells the computer to start up again 
somewhere: if followed by a line number, at that line; if followed by NEXT, at the line 
following EL. 

I use all this stuff in Sound/Music Lab. Line 1340 uses TRAP to set up an error- 
handling routine at line 16240. The routine at 16240, imaginatively named ERROR HAN- 
DLER, uses ERR$, ER, and EL to report the error to the user. Then it uses RE- 
SUME.NEXT to keep the program going. And it usually works. 
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Chapter 11: 
Program Notes 



Again, due to the size of this project, I can only touch on some of the more interesting 
program features. Be sure to scan the selected algorithms and source code for more 
goodies. 

11.1 USE OF OUTSIDE RESOURCES 

The Sound/Music Lab is a large project. In such work, on the C-128 or other com- 
puters, it's often convenient to use one or more outside files to support the main pro- 
gram. On some machines, such as Apple's Macintosh, you can use separate files during 
development, then easily combine them into one big application when everything's fin- 
ished. That's a bit tougher, though not impossible, on the C-128. The Sound/Music Lab 
program uses five files of outside resources: Finger Cursor holds data for a sprite finger 
cursor; S/M Asm 1 and S/M Asm 2 hold a number of useful assembly language routines 
called by the main program; S/M Vars contains a number of initialized values for 
Sound/Music Lab variables; and S/M Help Pack holds twenty two help screen images 
and associated data. Loading in all those files is the reason the lab takes so long to set 
itself up. 

11.2 THEHA()ARRAY 

Sound/Music Lab uses a number of assembly language routines and tables, and has 
to remember their addresses. During development, these addresses change frequently. 
Rather than have them scattered throughout the BASIC code, hard to find when changes 
are needed, I created an array of integer variables, HA( ), to contain the addresses. 

149 



That way all I have to do when one of them changes is adjust its value in a single HA( ) 
assignment statement. The primary assignment statements for the HA( ) array are lo- 
cated in lines 1550-1650 of Make S/M Vars. And Fig. 11-1 shows the value and assem- 
bly language label associated with each of the fourteen HA( ) entries. 

11.3 DATA STRUCTURES AND 

VARIABLES FOR RECORDING SOUND/MUSIC FRAMES 

The Sound/Music Lab lets you record a sequence of BASIC 7.0 sound and music 
commands for later playback and editing. Each recorded command is called a frame. I 
had to come up with a set of data structures and variables to record the frames. 



SOUND/MUSIC LAB HAH Array Information 



HA(#) 
HA(0) . 
HA(1) . 
HA(2) . 
HA(3) . 
HA(4) . 
HA(5) . 
HA(6) . 
HA(7) . 
HA(8) . 
HA(9) . 
HA(10) . 
HA(ll) . 
HA(12) . 
HA(13) . 



Label 

Install . . 
Unlnstall . 
ButnStat . 
AreaSearch 
LabAreas 
LabAreas 
HlpAreas . 
HlpAreas . 
HRBandlnvt 
HRRectlnvt . 
LablnvRex . 
LablnvRex . 
LabAreas 
Tx40BandInvt 



Qualifier 



lo-byte 
hi-byte 
lo-byte 
hi-byte 



lo-byte 
hi-byte 



Hexadecimal 


Decimal 


$1300 . 






. +4864 


$1345 . 






. +4933 


$1B14 






. +6932 


$1468 






. +5224 


$2F . 






. +47 


$16 . 






. +22 


$0F . 






. . +15 


$19 . 






. . +25 


$1512 






. . +5394 


$14C6 






. . +5318 


$33 . 






. . +51 


$19 . 






. . +25 


$162F 






. . +5679 


$1553 






. . +5459 



Fig. 11-1. Information concerning the HA ( ) array from Sound/Music Lab. 
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The fundamental data structure I use for recording frames is a stack. The classic 
metaphor for describing a stack is a pile of plates stored in a spring-loaded plate dis- 
penser. The stack starts out empty. The first plate you add becomes the topmost plate, 
the top of the stack. Add another plate, and it becomes the topmost plate. Remove a 
plate, and you get the topmost element in the stack, the last plate added. 

Computers lack spring-loaded plate dispensers. One way around this is to use an 
array to represent the stack, and a separate variable to indicate which element of the 
array is currently the top of the stack. This is what I do in the Sound/Music Lab. 

FD(MD) is an array used to implement a stack of frame data. It can hold up to MD 
(for Maximum amount of Data) values; as the program is written, MD is set equal to 
3000, but that can be changed. TD indicates the top of the stack. 

As mentioned in Section 9.6, the lab lets you record seven types of commands: 
SOUND, PLAY, ENVELOPE, VOLume, TEMPO, FILTER, and jump-to-frame. Each 
of these commands stores a different amount of data into FD ( ). Different size plates, 
as it were. To keep track of each frame's data on the stack, there's the array FF%(MF), 
where MF is the maximum number of frames (1000 as the program is written, but that 
can be changed). Every time a frame is recorded, its data is added to FD ( ), and a pointer 
to that data is stored in FF%. TF is a variable that holds the number of the highest 
recorded frame; it also functions as a pointer to the topmost valid entry of FF%( ). 

Six commands always use the same amount of storage for a frame. The PLAY com- 
mand is different, since it needs to store a play string. The array FS$(MS) holds those 
strings. MS is the maximum number of strings. When a PLAY command is recorded, 
its string is added to FS$( ), and a pointer to that string is what's stored into FD( ). 

DS(7) is an array that holds the size of frame data for each of the seven command 
types. MF holds the maximum number of frames, which is 1000. FR is the current frame 
the lab's working on. 

11.4 ALGORITHM FOR RECORDING A SOUND/MUSIC FRAME 

Here's a summary of what happens when a user chooses to record a sound/music 
command: The routine handling that particular command prepares data, in the array D( ), 
that describes the command. D(O) gets a code for the type of command, and other ele- 
ments of D( ) get the command's data. Then there's a call to the subroutine Record 
A Sound Frame. Record A Sound Frame works as follows: It first checks to see if there's 
room to record the command. If there's no room, an appropriate message goes to the 
user, and the subroutine returns, with a result variable set to failure. If there is room, 
the elements of D( ) that describe the command get stored on the FD( ) stack. Then 
a pointer to that data's position in FD( ) is stored in FF%( ). Feedback gets sent to 
the user. The frame counter gets bumped up a frame, and wraps around if past its maxi- 
mum. The subroutine returns, with a result variable set to success. 

11.5 CREATING THE SPRITE FINGER CURSOR 

If you didn't buy the program disk, you need to create a file called "Finger Cursor" 
that contains the data for a sprite finger cursor. What you do is enter the data with the 
C-128's built-in sprite editor or built-in monitor, then save the area of memory the data's 
in as a binary file. 
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Figure 11-2 shows a sprite coding form for the finger cursor sprite. The finger cur- 
sor is a multi-color sprite. It uses pixels colored by transparent screen color, sprite color, 
and multicolor register 0. 1 use black for the sprite color and white for multicolor regis- 
ter 0. That way the sprite finger cursor shows up as a white outline of a black hand 
with a pointing finger. 

Refer to the C-128 Prg for instructions on using the built-in sprite editor or built-in 
monitor to enter the sprite data shown in Fig. 11-2. Note that the figure gives the data 
in decimal form. Refer to Fig. 11-3 for the same data in hexadecimal. If you use the 
sprite editor, be sure you design the sprite as sprite 1. If you use the monitor, enter 
the data starting at $0E00 (3584), the pre-defined position for sprite l's data. 

Leave the editor or monitor after the data's entered. Then give this command to 
save the data as a binary file: 

BSAVE "FINGER CURSOR", BO, P3584 TO P3648 

11.6 EVENT-DRIVEN PROGRAMMING 

The key paradigm for programs like Sound/Music Lab is that they're event-driven. 
That is: the program waits around for something to happen, then reacts to that event. 
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Fig. 11-2. Sprite coding form for the Sound/Music Lab's sprite finger cursor. 
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Finger Cursor 


Sprite Data In Hexadecimal 




$01 $50 $00 
$01 $50 $00 
$01 $90 $00 
$01 $90 $00 




$01 $90 $00 
$01 $95 $00 
$01 $95 $00 
$15 $99 $50 




$15 $99 $50 
$19 $A9 $95 
$1A $A9 $95 
$1A $AA $99 




$1A $AA $99 
$1A $AA $A9 
$1A $AA $A9 
$1A $AA $A9 




$1A $AA $A9 
$16 $AA $A9 
$05 $AA $A5 
$01 $55 $54 




$01 $55 $50 



Fig. 11-3. The Sound/Music Lab's sprite finger cursor's data in hexadecimal form. 

The heart of such programs is a main event loop. In Sound/Music Lab, that loop 
is the subroutine Lab Event Loop. That subroutine looks for a pseudo-mouse click. If 
there is one, it figures out where the click occurred. If the click was in an active area 
of the lab screen, program control jumps to a subroutine handling clicks in that area. 
Those subroutines deal with subsequent events, using their own event loops, until the 
user takes an action ending their control. Control then returns to Lab Event Loop. 

11.7 POSITIONING THE SPRITE ON LAB/HELP SCREEN JUMPS 

When the user clicks the Sound/Music Lab's HELP button, the lab disappears and 
a help screen appears. The program takes the liberty of repositioning the sprite finger 
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cursor so it's hot spot is centered in the help screen's LAB button. That way the user 
can simply click the pseudo-mouse to get back to the lab. When the user returns to the 
lab, the program shifts the sprite finger cursor so it's hot spot is back inside the HELP 
button. 

11.8 MODE AVOIDANCE 

The Sound/Music Lab tries to avoid modes. That is: when you're doing one thing, 
you can easily leave it and do something else. For example, you can be working in the 
SOUND window, then click in the ENVELOPES window; SOUND is deactivated, and 
you get to work in ENVELOPES without the program making a protest. This behavior 
is implemented in each lab window's subroutine's event loop. For example, take a look 
at line 6220 of Sound/Music Lab. 

Why avoid modes? Modes confuse users. The user wants to do something they know 
can be done, because they've done it before, but the program won't let them do it be- 
cause it's not in the correct mode. Avoid modes, keep your users happy, and lessen 
confusion in today's complex world. 

11.9 HEAVY MODULARITY AND USE OF SUBROUTINES 

As already noted many times, the Sound/Music Lab is a very large program. And 
yet it's essentially bug-free. How can you write such a large project, with so much error- 
prone assembly language, and get it to work so well? Heavy modularity, achieved through 
a liberal use of well-designed subroutines. Each subroutine should perform a well-defined 
task. It shouldn't be too large; if its task is complex, break it into sub-tasks, making 
each sub-task a subroutine. You can see this throughout the source code for Sound/Mu- 
sic Lab and its support programs. 

11.10 VARIABLE INITIALIZATION VIA DATA STATEMENTS AND RESTORES 

The Sound/Music Lab has to initialize a lot of variables. In another attempt to in- 
crease robustness via modularity, I prefer to use DATA statements for mass initializa- 
tion. There can be a problem with DATA statements, however: making sure the right 
DATA statement gets read. The solution is the use of the RESTORE statement fol- 
lowed by the line number of the DATA statement you want read. You can see examples 
of this throughout Make S/M Vars and the initialization sections of Sound/Music Lab. 

11.11 EDITORS 

The Commodore computers have always had the best built-in text editors of any 
personal computer, and the C-128 is no exception. But the Sound/Music Lab needed 
more specialized editing capabilities. So I developed a package of assembly language editing 
routines, headed up by StrngRecEdit. They're located in S/M Asm 1. StrngRecEdit 
is called when the user's entering data in a Sound/Music Lab window. It lets the user 
type characters, use the insert and delete keys, use the cursor keys, and use the joystick- 
controlled mouse to move the cursor. All this happens within a specified rectangle, with 
wraparound on all sides. One little thing it does different than the Commodore editor: 
after pressing the insert key, you can do other things than just type in characters. 
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40C Edit is another package of assembly language editing routines. It's called on 
by Make 40C Screens. It lets you create and edit 40-column screens. Many of the rou- 
tines are similar to those used in StrngRecEdit. 

Both of these editing packages work through a main event loop. The loop waits for 
the user to type something, acts accordingly, then returns to the loop if the user's ac- 
tion didn't signify the end of the editing process. 

11.12 MOVING THE CURSOR WITH A PSEUDO-MOUSE 

As mentioned in Section 11.11, StrngRectEdit lets you use the Sound/Music Lab's 
pseudo-mouse to position an editing cursor. How's it done? 

If StrngRectEdit's event loop picks up a press of the pseudo-mouse, it calls on 
the routine : Deal Mouse. : Deal Mouse starts by calling on AreaSearch (from S/M Asm 
2) to see where the p-m click occurred. If the click occurred outside the rectangular 
StrngRectEdit's working on, :DealMouse returns with a result code indicating it's time 
to end the editing session. If the click occurred inside the editing rectangle, there's a 
call to :lnvertCursor to un-invert the editing cursor. Then there's a calculation to con- 
vert the pseudo-mouse location to text screen (40H x 25V) coordinates. Refer to the 
source code for details of this conversion. The new coordinates are adjusted so that 
they remain within the editing rectangle. Then the cursor is moved to that spot. 
:DealMouse returns with a result code indicating editing should continue. The top of 
the event loop inverts the cursor, which is at its new position. 

11.13 INPUT FILTERING 

A program should never crash because the user enters unreasonable data. Like a 
patient friend, it should deal gracefully with the user's mistake. 

I try to live up to this ideal in the Sound/Music Lab. When you enter a bad value 
into one of the Sound/Music Lab's windows, you'll get a beep and a hopefully helpful 
error message. The program won't crash. 

Example: The Sound/Music Lab has a routine, Fetch A Parameter, that handles 
numeric data entry. Fetch A Parameter calls on StrngRectEdit to fetch a value. When 
StrngRectEdit returns, the fetched value gets checked to see if it's within range for 
that particular parameter. An array of parameter bounds, PF( ), is used for the check- 
ing; take a look at the Fetch A Parameter source code, line 15250 in particular. 

11.14 ASSEMBLY LANGUAGE TABLES 

Tables are used throughout the Sound/Music Lab project. Using tables in your code 
encourages flexibility, generality, and mutational speed. I'd like to point out some of 
the more interesting ones that occur in some of the project's assembly language code: 

WherTab (lines 352-374 of S/M Asm 1 C.S) 

This is a table of pointers that tells the :StorStuf routine where to stick various 
items when it unpacks a parameter block sent to StrngRectEdit 

:TstCodz (lines 352-374 of S/M Asm 1 C.S) 

This is a table of keycodes for keys whose presses OurKeyChk wants to hide 
from the C-128 system. The keys are the four upper cursor movement keys 
and the return key. 
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:DirTab (lines 531-536 of S/M Asm 2 A.S) 

This table is used to translate raw joystick and upper cursor key data, both of 
which have values in the range 0..15, into a direction code. 

:MDLo and :MDHi (lines 540-556of S/M Asm 2 A.S) 

These tables are used to translate a direction code, in the range 0..7, into a 
pointer to a set of sprite motion data tied to that direction. See the description 
of the North, NorthEast, etc. tables. 

HRRowsLo, Rows4025Lo, HRRowsHi, and Rows4025Hi (lines 18-50 of S/M 
Asm 2 C.S) 

These tables are used to convert a text screen row number, in the range 0. .24, 
to pointers to the first byte in that row. 

LabAreas (lines 66-698 of S/M Asm 2 C.S) 

This table gives the rectangular boundaries, in bit map screen 320h by 200v 
coordinates, and an identification code for each area of the Sound/Music Lab 
screen where a pseudo-mouse click is significant. When a click occurs in the 
lab, this is the table that's searched to see where it happened. 

HlpAreas (lines 711-742 of S/M Asm 2 C.S) 

This table gives the rectangular boundaries, in bit map screen 320h by 200v 
coordinates, and an identification code for each area of a Sound/Music Lab help 
screen where a pseudo-mouse click is significant. When a click occurs in the 
help screen, this is the table that's searched to see where it happened. 

LablnvRex (lines 759-1073 of S/M Asm 2 C.S) 

This table gives the boundaries, in text screen 40h by 25v coordinates, for in- 
version rectangles assigned to each area of the lab described in the LabAreas 
table. 

LablnvRex (lines 759-1073 of S/M Asm 2 C.S) 

This table gives the boundaries, in text screen 40h by 25v coordinates, for in- 
version rectangles assigned to each area of the lab described in the LabAreas 
table. 

North, NorthEast, East ... West, NorthWest (lines 1078-1155 of S/M Asm 
2 C.S) 

These are tables of sprite motion data, one for each of 8 primary directions, 
that, when plugged into the sprite speed and direction tables described in Ap- 
pendix G, produce sprite motion in a particular direction. 

11.15 DISPLAYING VARIABLE-LENGTH 
STRINGS IN A FIXED-LENGTH AREA 

Error messages come in various sizes. The Sound/Music Lab has an error message 
window that's got a fixed size: 16 characters wide. So how can we display error mes- 
sages that may be longer than that? There are two possible solutions: The first, and 
the way we do it in Sound/Music Lab, is to chew off pieces of the error message that'll 
fit in the window, and show one piece after another until the entire message has been 
displayed. See lines 16090-16190 of Sound/Music Lab. The second, and more elegant 
way, is to write a routine that scrolls the message across the window, like the moving 
message on that building in New York's Times Square. Such a routine should be written 
in assembly language; I just didn't have the time or space to do it for this project. 
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Chapter 12: 
Stretching 



There's not enough room to provide complete solutions here, but I can give some strong 
hints. 

12.1 CHANGING MAKE 40C SCREENS SO IT 
WORKS WITHOUT AN 80-COLUMN MONITOR 

As written, Make 40C Screens uses an 80-column monitor as a control screen. You 
can rewrite the program to use a 40-column control screen. Possibly the simplest way 
is to use the bit-mapped screen for control operations. Wherever a command in Make 
40C Screens involves the 80-column screen, just replace it with an equivalent bit-map 
screen command. Remember, you print text on the bit-map screen via the CHAR 
command. 

For example, line 1340 would be changed from Graphic 5,1 to Graphic 1,1. And 
line 1990 would be changed from PRINT "BAD CHOICE" to something like CHAR 
1, 10, 16, "BAD CHOICE". 

1 2.2 CHANGING MAKE 40C SCREENS SO IT SAVES 
40-COLUMN SCREENS WITH COLOR INFORMATION 

When Make 40C Screens saves a 40-column text screen, it only saves the 1000 
memory locations holding poke codes. The simplest way to change it so it saves color 
information is to add a line that saves color RAM as a companion binary file. What to 
name this companion file? Well, possibly the simplest thing to do is add a suffix to the 
name the user chooses for the file of text information. For example, if the user chose 
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to save the screen as "HELP SCREEN 22", the color information would be saved as 
"HELP SCREEN 22C". 

This can be done by adding a line like this to Make 40C Screens: 

2425 BSAVE ("@" + NM$ + "C"), U(DN), P55296 TO P56296 

One more detail: Since an extra character is added to NM$, you have to make sure 
your name has 15 characters or less. You might want to add a length filter of some sort 
to the Fetch File Name And Device Number subroutine. 

12.3 MORE VISUALS 

Here are a number of ways you might make the lab more visual. No time here for 
many code hints, but I can make some design suggestions. 

It would be nice if the Sound/Music Lab provided some visual representation of the 
individual frames. Then, as recording and playback occurred, a display of frame represen- 
tations could scroll by. This scrolling visual frame display would provide another channel 
of information for the user, concretizing their work in the lab. 

The C-128 has some hardware features that aid such scrolling. But they don't help 
if you're just scrolling one small area of the screen. So you'd have to write some scroll- 
ing routines. Things will be easier if you make the scrolling display go from one side 
of the screen to the other. 

How to represent a frame's command? Well, you might develop a distinctive icon 
for each of the seven Sound/Music Lab commands. Different colors can go with each 
icon. You could have a text tag, giving the details of a frame's command, that travels 
with each icon. 

Another idea is to replace the numeric parameter display of some of the windows 
with graphic controls. For example, rather than typing in a value for the VOLume com- 
mand, you could move a slide switch. Another example: envelopes could be represented 
as a set of slideable points, connected with lines. The user would grab a point, and just 
move it up or down. 

12.4 MORE SOPHISTICATED PLAYBACK CONTROLS 

The FRAME command gives the Sound/Music Lab a primitive language capability 
during playback: it can jump from one frame to another. For example, you can FRAME 
a command at the end of a recording that jumps to the beginning of the recording. But 
these are unconditional jumps. You could add more sophistication. For example, a recorded 
FRAME command could have a count, so the jump would only occur a certain number 
of times. Or, a bit more complex, it could adjust one of the values in another recorded 
command, test it, then jump based on the results of the test. 
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Chapter 13: 
Calling 

Structure Diagrams 

This chapter consists of six figures, as follows: 

Fig. 13-1— calling structure diagrams for S/M Asm 1 (3 sheets). 

Fig. 13-2— calling structure diagrams for S/M Asm 2 (1 sheet). 

Fig. 13-3— calling structure diagrams for S/M Help Packer and Make S/M Vars (1 sheet). 

Fig. 13-4— calling structure diagrams for Make 40C Screens (1 sheet). 

Fig. 13-5— calling structure diagrams for 40C Edit (1 sheet). 

Fig. 13-6— calling structure diagrams for Sound/Music Lab (18 sheets). 
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Fig. 13-1. Calling structure diagrams for S/M Asm 1. 
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Fig. 13-2. Calling structure diagram for S/M Asm 2. 
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Fig. 13-3. Calling structure diagrams for S/M Help Packer and Make S/M Vars. 
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Fig. 13-4. Calling structure diagram tor Make 40C Screens. 
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Fig. 13-5. Calling structure diagram for 40C Edit. 
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Fig. 13-6. Calling structure diagrams for Sound/Music Lab. 
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Chapter 14: 

Subroutine Line 
Starts 



This chapter consists of seven figures, as follows: 

Fig. 14-1— subroutine line starts for S/M Asm 1 (1 sheet). 
Fig. 14-2— subroutine line starts for S/M Asm 2 (1 sheet). 
Fig. 14-3— subroutine line starts for S/M Help Packer (1 sheet). 
Fig. 14-4— subroutine line starts for Make S/M Vars (1 sheet). 
Fig. 14-5— subroutine line starts for Make 40 C Screens (1 sheet). 
Fig. 14-6— subroutine line starts for 40C Edit (1 sheet). 
Fig. 14-7— subroutine line starts for Sound/Music Lab (3 sheets). 
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S/M ASM 1 - Subroutine Line Starts 

StmgRectEdit 
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Fig. 14-1. List of subroutine line starts for S/M Asm 1. 



S/M ASM 2 - Subroutine Line Starts Sheet 1 Of 1 

Install A-212 

Unlnstall A-278 

OurKeyChk A-316 

OurllRQ A-372 

SetMoshn B-3 
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HRRectlnvt B-253 

HRBandlnvt B-360 

TX40BandInvt B-448 

FigOfs4025 B-531 

BasBnk40 B-579 



Fig. 14-2. List of subroutine line starts for S/M Asm 2. 
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S/M HELP PACKER - Subroutine Line Starts Sheet 1 Of 1 

Main Program Block 1220 

Pack 'Em In 1290 

SaveltAll 1530 



Fig. 14-3. List of subroutine line starts for S/M Help Packer. 



MAKE S/M VARS - Subroutine Line Starts Sheet 1 Of 1 

Main Program Block 1210 

Open The File 1290 

Write The Values 1370 

Close The File 2800 



Fig. 14-4. List of subroutine line starts for Make S/M Vars. 



MAKE 40C SCREENS - Subroutine Line Starts 
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Fig. 14-5. List of subroutine line starts for Make 40C Screens. 
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40C EDIT - Subroutine Line Starts 
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Fig. 14-6. List of subroutine line starts for 40C Edit. 



SOUND/MUSIC LAB - Subroutine Line Starts 
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Fig. 14-7. List of subroutine line starts for Sound/Music Lab. 
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SOUND/MUSIC LAB - Subroutine Line Starts 
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Chapter 15: 
Selected Algorithms 



This chapter consists of seven figures, as follows: 

Fig. 15-1— selected algorithms from S/M Asm 1 (10 sheets). 
Fig. 15-2— selected algorithms from S/M Asm 2 (8 sheets). 
Fig. 15-3— selected algorithms from S/M Help Packer (1 sheet). 
Fig. 15-4— selected algorithms from Make S/M Vars (1 sheet). 
Fig. 15-5— selected algorithms from Make 40C Screens (5 sheets). 
Fig. 15-6— selected algorithms from 40C Edit (6 sheets). 
Fig. 15-7— selected algorithms from Sound/Music Lab (43 sheets). 
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Selected Algorithms From S/M ASM 1 Sheet 1 Of 10 

StmgRectEdit 

store the function selector flag 

store the pointer to the parameter block 

call on :StorStuf to store items from the parameter block 

call on iSetStrpz to set up strings 

call on :InitEdVars to initialize some editing variables 

call on :DrwStrSec to draw the exit string on the bit-map screen 

IF 

the function selector flag says we're here just to draw the string 
THEN 

RETURN 
{ we're here to do some editing of the string ) 
REPEAT the following 

call on :InvertCursor to draw the editing cursor 
call on :Fi gHotSpot to determine the string's hot spot 

( the currently changeable character position ) 
IF 

a call to the System routine Getln shows there's a keypress 
THEN 

call on :DealKey to deal with the keypress 
ELSE IF 

there's been a click of the pseudo-mouse 
THEN 

call on :DealMouse to deal with the pseudo-mouse click 
UNTIL 

there's a signal to end the editing session 
call on ;InvertCursor to erase the editing cursor 
RETURN with an exit area code and the exit string's hot spot 
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:StorStuf 
FOR 

each byte of information contained in the StmgRectEdit parameter block 
DO the following 

grab that byte's destination address from the :WherTab table 

call on the System routine IndFet to grab the byte from the parameter block 

send it to its destination 
RETURN 

tlnitEdVars 

move the editing cursor to the upper-left comer of the editing rectangle 
IF 

the editing cursor is supposed to start out somewhere else 
THEN 
FOR 

each position to the right the editing cursor has to move to reach its 
destination 
| DO the following 

Fig. 15-1. Selected algorithms from S/M Asm 1. 
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call on :CursRit to move it one position to the right 
figure out the width of the editing rectangle 
RETURN 

call on the System routine IndFet to get the length of the entry and exit strings 

( both have the same length ) 
call on the System routine IndFet to get pointers to the two strings 
FOR 

each byte in the strings ( that's why we needed the length ) 
DO the following 
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call on the System routine IndFet to get the byte from the entry string 
call on the System routine IndSta to copy that byte to the exit string 
RETURN 

:DealKey 
IF 

it's a printable character keypress 
THEN 

call on :OveRite to add the character to the exit string 

RETURN, signalling for more editing 
ELSE IF 

it's a cursor-up keypress 
THEN 

call on :InvertCursor to erase the cursor 

call on :CursUp to move the cursor up 

RETURN, signalling for more editing 
ELSE IF 

it's a cursor-down keypress 
THEN 

call on :InvertCursor to erase the cursor 

call on :CursDwn to move the cursor down 

RETURN, signalling for more editing 
ELSE IF 

it's a cursor-left keypress 
THEN 

call on :InvertCursor to erase the cursor 

call on :CursLft to move the cursor left 

RETURN, signalling for more editing 
ELSE IF 
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it's a cursor-right keypress 
THEN 

call on :InvertCursor to erase the cursor 

call on :CursRit to move the cursor right 

RETURN, signalling for more editing 
ELSE IF 

it's an insert keypress 
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THEN 

call on :Insert to insert into the string 

RETURN, signalling for more editing 
ELSE IF 

it's a delete keypress 
THEN 

call on :Delete to delete from the string 

RETURN, signalling for more editing 
ELSE { the keypress is not one we choose to deal with ) 

call on :InvertCursor to erase the cursor 

RETURN, signalling for more editing 

:DealMouse 

call on AreaSearch (from S/M ASM 2) to find out the area the pseudo-mouse click 

occurred in 

IF 

we aren't looking for any specific area, just a p-m click 
THEN 

RETURN with a null exit area code and signalling that it's time to end the 
editing session 
ELSE IF 

the area isn't our editing area 
THEN 
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RETURN with that area as the exit area code and 
signalling that it's time to end the editing session 
ELSE { the mouse has been pressed in our editing area ) 
call on .-InvertCursor to erase the cursor 

convert the pseudo-mouse coordinates to text-screen coordinates, making sure 
the 

text-screen coordinates stay within our editing rectangle 
move the cursor to those text-screen coordinates 
RETURN, signalling for more editing 

:InvertCursor 

call on HRBandlnvt (from S/M ASM 2) to invert the cursor 
RETURN 

:FigHotSpot 

figure out the row the cursor is in relative to the editing rectangle 

multiply that by the width of the editing rectangle 

figure out the column the cursor is in relative to the editing rectangle 

add that to the row-width product and we've got the hot spot 

RETURN 

:OveRite 

set up a pointer to the exit string 

call on the System routine IndSta to add the character to the exit string at the hot spot 

call on :InvertCursor to erase the cursor 

call on DrawBMChar to draw the character at the current cursor position 
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call on :CursRit to move the cursor to the right 
RETURN 
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insert 

set up a pointer to the exit string 
IF 

the hot spot is not at the exit string's last character position 
THEN do the following 
FOR 

each character in the exit string from the next-to-last through to the hot 
spot 

DO the following 

call on the System routine IndFet to fetch the character 
call on the System routine IndSta to store the 

character one position to the right in the string 
call on the System routine IndSta to store a space character at the exit string's hot spot 
call on :DrwStrSec to redraw the exit string from the hot spot through to the last 
character 

call on :InvertCursor to erase the cursor 
RETURN 

:Delete 

set up a pointer to the exit suing 

call on :TnvertCursor to erase the cursor 

IF 

the hot spot is not at the exit string's first character position 
THEN do the following 
FOR 

each character in the exit string from the hot spot through to the last 
character 

DO the following 

call on the System routine IndFet to fetch the character 
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call on the System routine IndSta to store the 

character one position to the left in the string 
call on the System routine IndSta store a space character 

at the exit string's last character position 
call on :DrwStrSec to redraw the exit string from the hot spot through to the last 
character 

call on :CursLft to move the cursor to the left 
RETURN 

:DrwStrSec 

STARTING with 

the first character of the string section 
REPEAT 

call on :DrwStrChr to draw the character 

move on to the next character 
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UNTIL 

the last character of the string section has been drawn 
RETURN 

j DrwS n-Chr 

figure the row the character's in relative to the editing rectangle 

figure the column the character's in relative to the editing rectangle 

change the relative row to an absolute row 

change the relative column to an absolute column 

IF 

the character is inside the editing rectangle 

THEN 

call on the System routine IndFet to grab the character 
call on DrawBMChar to draw the character on the bit-map 
screen at its absolute row-column position 
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RETURN 

:CursRit 
IF 

the cursor is at the editing rectangle's rightmost column 
THEN 

call on :CursDwn to move the cursor down a row 

move the cursor to the editing rectangle's leftmost column 
ELSE 

move the cursor one position to the right 
RETURN 

:CursLft 
IF 

the cursor is at the editing rectangle's leftmost column 
THEN 

call on :CursUp to move the cursor up a row 

move the cursor to the editing rectangle's rightmost column 
ELSE 

move the cursor one position to the left 
RETURN 

:CursDwn 
IF 

the cursor is at the bottom of the editing rectangle 
THEN 

move the cursor to the top of the editing rectangle 
ELSE 

move the cursor down a row 
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RETURN 
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:CursUp 
IF 

the cursor is at the top of the editing rectangle 
THEN 

move the cursor to the bottom of the editing rectangle 

ELSE 

move the cursor up a row 
RETURN 

DrawBMChar 

save some registers 

call on CAsc2Pokl to transform the C-ASCn code to a character set 1 poke code 

set a pointer to the address in the character ROM where the character's image data 

begins: 

multiply the poke code by 8 

add that to the base address of set 1 in the character ROM 
set a pointer to the address in bit-map memory where the character's image data will 
begin: 

multiply the character's absolute row by 320 bytes per row 

add that to the base of the bit-map 

multiply the character's absolute column by 8 bytes per column 

add that to the previous result 
save the current memory configuration 
set the memory configuration to Bank 14 
FOR 

each of the 8 bytes of character image data 
DO the following { with the pointers derived above } 

grab the byte from the character ROM 
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store the byte into bit-map memory 
restore the saved memory configuration 
restore some registers 
RETURN 

CAsc2Pokl 

convert the C-ASCII code to a character set 1 poke code as follows : 
C-ASCII code range poke code range 

0..31 32 

32..63 32..63 

64..95 0..31 

96..127 64..95 

128.. 159 32 

160..191 96.. 127 

192..223 64..95 

224..254 96.. 126 

255 94 
RETURN 
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disable interrupts 

save some registers 

save the current KeyChk vector 

point the KeyChk vector to OurKevChk 

save the current IIRQ vector 

point the URQ vector to OurlIRO 

set the sprite-in-motion flag to no motion 

set CIA #2 Timer A for use as a single/double click timer 

{ this got left in the code even though I didn't have 

time to implement the click differentiation routines } 
restore some registers 
enable interrupts 
RETURN 

Unlnstall 

disable interrupts 

save some registers 

point the URQ vector back to its original routine 

point the KeyChk vector back to its original routine 

restore some registers 

enable interrupts 

RETURN 

OurKevChk 

save some registers 
FOR 

each of our test keycodes ( upper cursor keys and return key ) 
DO the following 
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IF 

that's the keycode the System detected 
THEN 

hide that keypress from the System 
leave this FOR..DO loop 
restore some registers 
JUMP to the regular KeyChk routine 

QurJXBQ 

save some registers 

save the entry memory configuration 

set the memory configuration to Bank 15 ( System bank ) 

check out the upper cursor keys : 

send signals out on the keyboard lines of interest 

read the resulting signal 

filter out noise from that result 

Fig. 15-2. Selected algorithms from S/M Asm 2. 

197 



use the result to grab a cursor keys direction code 
check out the joystick direction switches : 
read the joystick data 
filter out noise from that data 
use the data to grab a joystick direction code 
arbitrate between the two possible direction codes : 
IF 

the joystick direction code indicates movement is necessary 
THEN 

use the joystick direction code 
ELSE 

use the cursor keys direction code 
IF 
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sprite #1 (our pseudo-mouse cursor ) is currently in motion 
THEN do the following 

IF 

the arbitrated direction code indicates a change in the direction of sprite 
motion 

THEN do the following 
stop sprite #l's motion 
set the in-motion flag to stopped 

ELSE 

JUMP to where we check out the pseudc— mouse button 
{ we get here if sprite #1 is not in motion } 
IF 

sprite #1 is to be put into motion 
THEN 

use the arbitrated direction code to set a pointer to the appropriate sprite motion 
data 

call on SetMoshn to set sprite #1 into the appropriate motion 

set the in-motion flag and record the new direction of sprite motion 
{ this is where we check out the pseudo-mouse button ) 
IF 

a test of the joystick data byte shows that the joystick button is being pressed 
OR 

a test of the keyboard circuitry shows that the RETURN key is being pressed 
THEN 

store sprite #l's current position 

set the pseudo-mouse click state to 'clicked' 
ELSE { neither the joystick button nor the RETURN key is being pressed by the 
User ) 

set the pseudo-mouse click state to 'not clicked' 
restore the saved memory configuration 
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restore some registers 

JUMP on to the regular Urq handler 

S et M os hn 
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save some registers 
FOR 

each of the bytes in the sprite motion data record 

that's pointed to when we enter this routine 
DO the following 

store the byte in sprite #l's speed/direction table 
restore some registers 
RETURN 

AreaSearch 

initialize a search pointer to the first entry in a table of areas to be searched 
save some registers 
STARTING with 

the first area in the table 
REPEAT the following 
IF 

a grab of area data shows we're at the end of the table of areas 
THEN 

the pseudo-mouse point is not in any of this table's areas 
ELSE IF 

the pseudo-mouse vertical coordinate is above the area's top boundary 
THEN 

the pseudo-mouse point is not in this area 
the pseudo-mouse point is not in any of this table's areas 
ELSE IF 
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the pseudo-mouse vertical coordinate is below the area's bottom 
boundary 
THEN 

the pseudo-mouse point is not in this area 

we need to move on to the next area 
ELSE IF 

the pseudo-mouse horizontal coordinate is to the left of the area's left 
boundary 
THEN 

the pseudo-mouse point is not in this area 

we need to move on to the next area 
ELSE IF 

the pseudo-mouse horizontal coordinate is 
to the right of the area's right boundary 
THEN 

the pseudo-mouse point is not in this area 

we need to move on to the next area 
ELSE 

we've found an area the pseudo-mouse point is in 
IF 

we need to move on to the next area 
THEN 

move the search pointer to the next area in the table by adding 
the length of an area's data record to it 
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UNTIL 

we know the pseudo-mouse point is not in any of this table's areas 
OR 

we've found an area the pseudo-mouse point is in 
IF 
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the pseudo-mouse point was not in any of the table's areas 
THEN do the following 

restore some registers 

RETURN with a NULL result code 
ELSE { we found an area ) 

restore some registers 

RETURN with the area's ED number as a result code 

HRRectlnvt 

set a pointer to the start of the table of area rectangle data 

use the area's ID number to figure the offset of the area's rectangle's data in the table 

add that offset to the pointer so we're pointing at the area's rectangle's data 

grab the area's top row so we know where to start our loop 

grab the area's bottom row so we know where to end our loop 

grab the area's rectangle's left and right columns so we can figure out the width of a 

row 

FOR 

each row of the area's rectangle 
DO the following 

call on HRBanrilnvt to invert that row 
RETURN 

HRPandlnvt 

save some registers 

set a pointer to the start of the band's row 

move the pointer to the band's starting cell 

FOR 

each of the band's 8-pixel-by-8-pixel cells 
DO the following 

grab the cell's foreground/background byte 
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swap the foreground and background nibbles 

store the cell's modified foreground/background byte 
restore some registers 
RETURN 

TX40BandInvt 

save some registers 

call on FipOfs4025 to figure the band's leftmost column's 

offset from the base of the text screen memory 
call on BasBnk40 to get the base of the text screen memory 

and the RAM memory bank it's in 
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add the fetched base and offset to set a pointer to the band's leftmost column 
FOR 

each of the band's columns 
DO the following 

call on the System routine IndFet to grab the column's current poke code 

flip-flop the poke code's hi-bit to invert the character 

call on the System routine IndSta to store the column's modified poke code 
restore some registers 
RETURN 

Fi R Qfs4Q?g 

park the parameters 

get the lo-byte of the row's starting address 

add in the column and park the result 

get the hi-byte of the row's starting address 

add in any Carry from the prior addition and park the result 

grab the parked results 

RETURN 
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BasBnk40 

grab- the current memory configuration byte 

mask out all but bit 6, which represents the RAM bank that's in effect 

( for RAM bank 0, 1 for RAM bank 1 ) 
move that bit around to bit - now we've got a byte 

holding the RAM bank number, or 1 
grab the hi-nibble of VIC register #24, which represent 

bits 10.. 13 of the text screen's base address 
grab the contents of CIA #2 Port A 
mask out all but bits and 1, which represent bits 14 

and IS of the text screen's base address 
move those 6 fetched bits around, then add two zero bits, 

to form the hi-byte ( bits 8..15 ) of the text screen's base address 
{ bits 0..9 of the text screen's base address are 0, 

since text screens occur on one-K boundaries } 
set the lo-byte of the text screen's base address to 
RETURN with the bank number and base address in the registers 
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Main Program Block 

call on Pack 'Em In to load a block of memory with help screen data 
call on Save It All to save that block of memory to a disk file 
RETURN 

Pack 'Em In 

FOR 

each of 22 help screens 

DO the following 

load the help screen into an area of RAM Bank 1 
poke a sprite data pointer into that area of RAM Bank 1 

load the finger cursor sprite image data into quadrant 3 of RAM Bank 1 

load the finger cursor sprite image data into quadrant 4 of RAM Bank 1 

RETURN 

Save It All 

print a disk insertion prompt 

wait until the User presses a key 

save the block of RAM Bank 1 memory that holds the help screen goodies 

print the disk operation status info 

print a catalog of the disk 

RETURN 



Fig. 15-3. Selected algorithms from S/M Help Packer. 
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Main Program Block 
Open The File 
Write The Values 
Close The File 
RETURN 

Open The File 

fetch the device number from the User 

open a sequential file for writing on that device 

RETURN 

Write The Values 

write a number of variables for SOUND/MUSIC LAB to that opened file 
RETURN 

Close The File 

burp the disk buffer 
close the opened file 
RETURN 



Fig. 15-4. Selected algorithms from Make S/M Vars. 
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Main Program Block 
Qet Ready 
Run It 
Clean Up 
RETURN 

Get Ready 

slow down to 1 megahertz speed 

set up an error handler 

set screen to 80-column text, cleared, with a black background and border 

set finished flag to 'not finished' 

set up a command parsing string 

set up some character string constants 

load in the "40C EDIT" object code from the device this program was loaded from 

load in the "TEXT DUMPS" object code from the device this program was loaded 

from 

initialize the 40-column screen editing cursor to the upper left corner of the screen 

call on Print Choices to print out the menu of command choices 

RETURN 

Run It 

REPEAT 

wait for a keypress 

figure out a command code by running the keypress through the parsing string 
based on the command code, call on Bad Choice. EditCommand . Clear 
Command. 

Save Command, LcadComrnand, Print Command , or Quit Command 
UNTIL 

the finished flag says 'finished' 
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RETURN 

Clean Up 

go to a cleared 80-column text screen 
speed up to 2 megahertz speed 
RETURN 

Bad Choice 

print some feedback 

Fig. 15-5. Selected algorithms from Make 40C Screens. 
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wait a second 

clear the message area 

print some advice 

wait a second 

clear the message area 

RETURN 

Edit Command 

print some feedback 

save the 80-column cursor position 

set the 40-column cursor position 

call on 40CEdit ( from the file 40C EDIT ) to edit the 40-column screen 

save the 40-column cursor position 

set the 80-column cursor position 

clear the message area 

RETURN 

Clear Command 

print some feedback 

switch to a cleared 40-column text screen 
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switch to an undisturbed 80-column text screen 

wait a second 

clear the message area 

RETURN 

Save Command 

print some feedback 
IF 

a call to Fetch File Name And Device Number is successful 
THEN do the following 

save the 40-column text screen as the named file on the chosen disk drive 

clear the message area 

print the disk drive status string as feedback 
wait a second 
clear the message area 
RETURN 

Fetch File Name And Device Number 
get a file name from the User 
IF 

no file name was entered 
THEN 

clear the message area 
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print some feedback 

RETURN with a result code of 'unsuccessful' 
ELSE { a file name was entered } 

get a device number from the User 
IF 

the device number is not reasonable 
THEN 
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clear the message area 
print some feedback 

RETURN with a result code of 'unsuccessful' 
ELSE { the device number was reasonable } 
RETURN with a result code of 'successful' 

Load Command 

print some feedback 
IF 

a call to Fetch File Name And Device Number is successful 
THEN do the following 

load the named 40-column text screen file from the chosen disk drive 

clear the message area 

print the disk drive status string as feedback 
wait a second 
clear the message area 
RETURN 

Print Command 

print some feedback 

call on Dump40 ( from the file TEXT DUMPS ) to print the 40-column screen 

clear the message area 

RETURN 

Quit Command 

print some feedback 

set finished flag to 'finished' 

RETURN 
Selected Algorithms From MAKE 40C SCREENS Sheet 5 Of 5 

Error Handler 

clear the message area 

print out information about the error 

wait 2 seconds 

clear the message area 

RESUME execution at the next BASIC statement after the error 
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40CEdit 

REPEAT the following 

call on InvertCursor to draw the editing cursor 
REPEAT the following 

call on the System routine Getln to scan the keyboard 
UNTIL 

such a call reveals a key has been pressed 
call on DealKev to deal with the keypress 
UNTIL 

DealKev returns with a signal to end editing 
RETURN 

InvertCursor 

call on SetPtr to set a pointer to the start of the cursor's row 

set an index to the cursor's column 

using the pointer and the index, grab the cursor's poke code 

flip-flop the poke code's hi— bit to invert it 

store the modified poke code 

RETURN 

DealKev 

call on InvertCursor to erase the cursor 
IF 

the key's C-ASCII character code is in the range 32.. 127 

OR 
the key's C-ASCII character code is in the range 160..255 
THEN do the following 

call on PrintChar to print the character 
RETURN with a signal to continue editing 
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ELSE IF 

it's a cursor-up keypress 
THEN 

call on CursUp to move the cursor up 

RETURN with a signal to continue editing 
ELSE IF 

it's a cursor-down keypress 
THEN 

call on CursDwn to move the cursor down 

RETURN with a signal to continue editing 
ELSE IF 

it's a cursor-left keypress 
THEN 

call on CursLft to move the cursor to the left 

RETURN with a signal to continue editing 
ELSE IF 

it's a cursor-right keypress 

Fig. 15-6. Selected algorithms from 40C Edit. 
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THEN 

call on CursRit to move the cursor to the right 

RETURN with a signal to continue editing 
ELSE IF 

it's an insert keypress 
THEN 

call on Insert to insert a space 

RETURN with a signal to continue editing 
ELSE IF 

it's a delete keypress 
THEN 

call on Delete to delete a character 
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RETURN with a signal to continue editing 
ELSE IF 

it's a reverse-on keypress 
THEN 

set the reverse flag to 'on' 

RETURN with a signal to continue editing 
ELSE IF 

it's a reverse-off keypress 
THEN 

set the reverse flag to 'off 

RETURN with a signal to continue editing 
ELSE IF 

it's a SHIFT-RETURN combination 
THEN 

RETURN with a signal to end editing 
ELSE 

{ the keypress is not one we deal with } 

RETURN with a signal to continue editing 

BdrjlChar. 

call on CAsc2Pokl to fetch the character's poke code 
IF 

the reverse flag is set to 'on' 
THEN 

reverse the character's poke code by setting bit 7 
call on SetPtr to set a pointer to the start of the cursor's row 
set an index to the cursor's column 

using the pointer and the index, store the character's poke code 
call on CursRit to move the cursor to the right 
RETURN 
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Insert 

call on SetPtr to set a pointer to the start of the cursor's row 
IF 

the cursor is not located in the rightmost column 
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THEN do the following 
FOR 

each column in the cursor's row from the next-to-last 
column through to the cursor position 
DO the following 

fetch that row/column position's character 
store it one position to the right 
store a space character at the cursor position 
RETURN 

S etPff 

fetch the cursor's row 

use it as an index into a table of row starting addresses 

fetch the lo- and hi- bytes of the cursor's row's starting address 

RETURN 

Delete 

call on SetPtr to set a pointer to the start of the cursor's row 
IF 

the cursor is in the leftmost column of its row 
THEN do the following 

call on CursLft. to move the cursor to the left 
( it'll end up in the rightmost column of the previous row ) 
call on SetPtr to set a pointer to the start of the cursor's new row 
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set an index to the cursor's column 

using the pointer and the index, store a space character at the cursor's position 
RETURN 
ELSE do the following { the cursor isn't in the leftmost column } 
FOR 

each column in the cursor's row from the cursor's 
column through to the rightmost column 
DO the following 

fetch that row/column position's character 

store it one position to the left 
store a space character at the rightmost column 
call on CursLft to move the cursor to the left 
RETURN 

CursRit 
IF 

the cursor's in the rightmost column 
THEN 

call on CursDwn to move the cursor down a row 

move the cursor to the leftmost column 
ELSE 

move the cursor one column to the right 
RETURN 

CursLft 
IF 
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the cursor's in the leftmost column 
THEN 

call on CursUp to move up a row 
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move the cursor to the rightmost column 
ELSE 

move the cursor one position to the left 
RETURN 

CursDwn 
IF 

the cursor's in the bottom row 
THEN 

move the cursor to the top row 
ELSE 

move the cursor down a row 
RETURN 

CursUp 
IF 

the cursor's in the top row 
THEN 

move the cursor to the bottom row 
ELSE 

move the cursor up a row 
RETURN 
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Main Program Block 
SetUp T he L ub 
REPEAT 

CALL on the Lab Event Loop 
UNTIL 

the finished flag says 'finished' 
Clean Up The Lab 
RETURN 

Set Up The Lab 

speed up processor to 2 megahertz ( VIC screen disappears ) 

set Bank IS ( System bank ) for memory accesses 

set up an error handler 

Configure Memory 

Initialize Some Variables 

Reset Sound Variables 

Draw A Fresh Screen 

Update The Screen 

Load And Install Binary Files 

Fig. 15-7. Selected algorithms from Sound/Music Lab. 
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Initialize Cursor 

slow down processor to 1 megahertz ( VIC screen appears ) 

RETURN 

Lab Event Loop 
IF 

the pseudo-mouse button has been clicked 
THEN 

CALL on AreaSearch ( from S/M ASM 2 ) to find out where it's been clicked 

IF 

Selected Algorithms From SOUND/MUSIC LAB Sheet 2 Of 43 

the pseudo-mouse was clicked in a valid area 
THEN 

JUMP to one of these routines, based on the area : 

Sound Click . Plav Click . Envelope Pick . Volume Click - 
Tempo Click . Filter Click . Frame Click . Go Click . 1 
Load Click . Clear Click . Help Click. J 
Backward Click. Save Click . Print Click . End Click 
RETURN 

Clean Up The Lab 

go to a cleared 40-column text screen 

turn sprite #1 ( the pseudo-mouse finger cursor ) off 

CALL on Unlnstall ( from S/M ASM 2 ) to un-install the pseudo-mouse routines 

move RAM Bank 1 string storage back up to its normal position 

RETURN 

Configure Memory 

move RAM Bank 1 string storage down to make room for the help screens 
RETURN 

Initialize Some Variables 

set the default drive to the one last accessed ( the one the program came from ) 

open the file S/M VARS on the default drive for reading 

set the finished flag to 'not finished' 

set the number of help screens to 22 

set the current help screen to #1 

set up some pointers 

set up a string of blanks 

set up a string of zeroes 
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set up sound frame arrays and pointers 

read sound frame type titles from the disk file 

set up an initial feedback message 

read assembly language addresses from the disk file 

read parameter fetching data from the disk file 

read envelope parameter strings from the disk file 

read the default sound array and sound parameter strings from the disk file 

read the default envelopes from the disk file 
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read filter parameter strings from the disk file 

read help screen inversion parameters from the disk file 

read help screen K-boundaries and quadrants from the disk file 

burp the buffer 

close the disk file 

RETURN 

Reset Sound Variables 

set the current sound array to the default 

set the current play string to NULL 

set the current envelopes array to the default 

set the current envelopes 

set the current volume to the default 

set the current tempo to the default 

zero out the current filter array 

set the current filter 

set the current frame to 1 

set the frame pointers to 

RETURN 

Draw A Fresh Screen 

set a black border and black background 
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go to an undisturbed 40-column text screen 

set a green 40-column text pen 

go to a cleared 40-column text screen 

set a black bit-map pen 

go to a cleared 40-column bit-map screen 

Draw Six Windows 

Draw Frame Counter 

Draw Nine Buttons & A Window 

Draw Help Button 

RETURN 

Update The Screen 

Update Envelopes Window 
Update Volume Window 
Update Tempo Window 
Update Filter Window 
Update Frame Counter 
Update Message Window 
RETURN 

Load And Install Binary Files 

load the sprite data file FINGER CURSOR from the default drive 
load the assembly language file S/M ASM 1 from the default drive 
load the assembly language file S/M ASM 2 from the default drive 
load the help screen data file S/M HELP PACK from the default drive 
CALL on Install ( from S/M ASM 2 ) to install the pseudo-mouse routines 
RETURN 

Initialize Cursor 
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move sprite #1 to the middle of the screen 

turn sprite #1 on 

set sprite #l's foreground color to black 

set sprite #1 to appear in front of screen objects 

set sprite #1 to normal (un-expanded) size 

set sprite #1 to be a multi-color sprite 

set sprite multi-color 1 to white 

RETURN 

Draw Six Windows 
set a data pointer 
FOR 

each of six windows ( sound, play, envelopes, volume, filter, and tempo ) 
DO the following 

read in the window's data 
draw the window's outline in red 
draw the window's title in light blue 
CALL ON the window's customization routine (if any) : 
Customize Sound Window . Customize Plav Window. 
Customize Envelope Window , or Customize Filter Window 
RETURN 

Update Sound Window 
set a data pointer 
FOR 

each of 8 sound parameters 
DO the following 

turn the parameter's current value into a string 

read the parameter's display area width, display color, 
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and display area starting column 
fit the string to the display area width 

draw the string in the display color, starting at the display area starting column 
RETURN 

Update Envelopes Window 
FOR 

each of 9 envelopes 
DO the following 

CALL on Update An Envelope 
RETURN 

Update An Envelope 
set a data pointer 

read the two envelope parameter colors 
adjust colors for this envelope 
FOR 

each of the envelope's six parameters 
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DO the following 

set a color for the parameter 
FOR 

each of the envelope's six parameters 
DO the following 

turn the parameter's current value into a string 

read the parameter's display area width and display area starting column 

adjust the string to fit display area width 

draw the string in the parameter's color, starting at the display area starting 
column 
RETURN 
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Sound Click 

CALL on Invert An Area to invert the Sound window title 
CALL on Update Sound Window to draw the current sound array 
set target area to where the pseudo-mouse click occurred 
IF 

target area's the window title 
THEN 

move the target area to the voice parameter 
send some feedback via Update Message Window 
( this next unit is referred to as the REPEAT..UNTIL 
parameter-fetching loop ) 
REPEAT the following 

CALL on Type One Sound for a beep 

set up so Fetch A Parameter will act on the target area and its parameter 
invert the target area's label via HRBandlnvt ( from S/M ASM 2 ) 
CALL on Fetch A Parameter to get a parameter value for the target area 
{ Fetch A Parameter returns via a pseudo-mouse click, 

which well call the FAP return click ) 
( Fetch A Parameter returns a value for the parameter 

it was to fetch, which we'll call the FAP exit value ) 
normalize the target area's label via HRBandlnvt ( from S/M ASM 2 ) 
IF 

the FAP return click is not in the Sound window 

AND 
the FAP return click is not in the Go button 
THEN 

save the area where the pseudo-mouse click occurred 
JUMP down to this routine's exit block 
UNTIL 
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the FAP exit value is valid 
IF 

the FAP exit value is different from the target area's current parameter 
THEN 

change the target area's current parameter 
IF 

the FAP return click is in the Sound window title 
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THEN do the following 

give some feedback via Update Message Window 

invert the frame counter via Invert An Area 

Plav Current Sound 

Let Sound Finish 

set frame type to 'sound' 

set frame data to contents of the current sound array 

IF 

a CALL to Record A Sound Frame is successful 
THEN 

JUMP back to the top of the REPEAT..UNTTL parameter-fetching loop 
ELSE 

set the pseudo-mouse click area to NONE 

JUMP to this routine's exit block 
ELSE IF 

the FAP return click is in the Sound window 
THEN do the following 

make that area the target area 

JUMP back to the top of the REPEAT..UNTIL parameter-fetching loop 
ELSE ( the FAP return click is in the Go Button ) 

give some feedback via Update Message Window 
invert the Go button via Invert An Area 
Plav Current Sound 
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Let Sound Finish 

normalize the Go button via Invert An Area 

JUMP back to the top of the REPEAT..UNTIL parameter-fetching loop 
{ this is the exit block referred to above } 
CALL on Update Message Window to clear the message area 
clear the Sound window parameter data area 
CALL on Invert An Area to normalize the sound window title 
JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

Invert An Area 

CALL on HRRectlnvt ( from S/M ASM 2 ) with a pointer to 

the table of lab area inversion rectangles and an area number 
RETURN 

PJaxClidl 

CALL on Invert An Area to invert the Play window title 

initialize the play string editing cursor to the upper left corner of the Play window data 

area 

CALL on Type One Sound for a beep 

( this is where we come to edit the play string } 

send some feedback via Update Message Window 

set up for a CALL to StmgRectEdit 

CALL on StmgRectEdit (from S/M ASM 1) to edit the current 

play string within the Play window's data area 
{ StmgRectEdit returns via a pseudo-mouse click, which we'll call the SRE return 
click ) 
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remember the editing cursor's position for further editing 
IF 

the SRE return click is in the Go button 
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THEN do the following 

invert the Go button via Invert An Area 
give some feedback via Update Message Window 
play the current play string 
normalize the Go button via Invert An Area 
JUMP back up to edit the play string some more 
ELSE IF 

the SRE return click is in the Play window title 
THEN do the following 
IF 

there's no room to store the play string in the string storage array 
THEN do the following 

Send An Error Message 
set the pseudo-mouse click area to NONE 
JUMP to this routine's exit block 
{ it's at the end of this routine's pseudo-code } 
ELSE { there's room to store the play string } 

give some feedback via U pdate Message Window 

invert the frame counter via Invert An Area 

play the current play string 

set frame type to 'play' 

set frame data to the string storage array index 

store the play string in the string storage array 

IF 

a CALL to Record A Sound Frame is successful 
THEN do the following 

increment the string storage array index 
JUMP back up to edit the play string some more 
ELSE { the recording failed } 
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set the pseudo-mouse click area to NONE 
JUMP to this routine's exit block 
ELSE { the SRE return click is neither in the Play window nor the Go button ) 

set the pseudo-mouse click area to the SRE return click's area 

FALL THRU to this routine's exit block 
( this is the exit block referred to above ) 
CALL on Update Message Window to clear the message area 
CALL on Customize Plav Window to clear the play window data area 
CALL on Invert An Area to normalize the play window title 
JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

Envelope Click 

CALL on Invert An Area to invert the Envelope window tide 
set target area to where the pseudo-mouse click occurred 
IF 
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the target area is set to the Envelope window's title 
THEN 

move the target area to the first envelope's first parameter 
use the target area to determine which envelope we're working with 
IF 

the target area is set to an envelope's number 
THEN 

move the target area to that envelope's first parameter 
use the target area to determine which envelope parameter we're working with 
( this next unit is referred to as the parameter-fetching block ) 
send some feedback via 1 Tpriate Mes sage Window 
CALL on Type One Sound for a beep 

set up so Fetch A Parameter will act on the target area and its parameter 
invert the target area's envelope number via HRBandlnvt ( from S/M ASM 2 ) 
invert the target area's parameter label via HRBandlnvt ( from S/M ASM 2 ) 
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CALL on Fetch A Parameter to get a parameter value 
( Fetch A Parameter returns via a pseudo-mouse click, 

which we'll call the FAP return click} 
( Fetch A Parameter returns a value for the parameter 

it was to fetch, which we'll call the FAP exit value } 
normalize the target area's parameter label via HRBandlnvt ( from S/M ASM 2 ) 
normalize the target area's envelope number via HRBandlnvt ( from S/M ASM 2 ) 
IF 

the FAP return click is outside the Envelope window 
THEN 

save the area where the pseudo-mouse click occurred 

JUMP to the exit block { at the end of this routine's pseudo-code ) 
IF 

the FAP exit value is invalid 
THEN 

JUMP back up to the top of the parameter-fetching block 
IF 

the FAP exit value is different from the target area's current parameter value 
THEN 

change the target area's parameter value to the FAP exit value 

CALL on Set Current Envelope to change the target area's envelope 
IF 

the FAP return click isn't in the Envelope window title 
THEN 

set the target area to the FAP return click's area 

JUMP back up to the top of the parameter fetching block 
ELSE ( the FAP return click was in the title ) 

give some feedback via Update Message Window 

give a beep via a CALL to Type One Sound 
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invert the frame counter via Invert An Area 
set frame type to 'envelope' 
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set frame data to the envelope number and its parameters 
IF 

a CALL to Record A Sound Frame is successful 
THEN do the following 

JUMP back up to the top of the parameter fetching block 
ELSE { the recording failed } 

set the pseudo-mouse click area to NONE 
FALL THRU to this routine's exit block 
{ this is the exit block referred to above ) 
CALL on Update Message Window to clear the message area 
CALL on Update An Envelope to redraw the last envelope fiddled with 
CALL on Invert An Area to normalize the Envelope window title 
JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

Set Current Envelope 

CALL on Update Message Window to print some feedback 

CALL on Type One Sound for a beep 

doashortPjuse 

CALL on Update Message Window to clear the feedback 

set the envelope to the current envelope array values 

RETURN 

Volume Click 

CALL on Invert An Area to invert the Volume window title 
{ this next unit is referred to as the parameter-fetching block } 
CALL on Update Message Window to send some feedback 
CALL on Type One Sound for a beep 
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set up for a CALL to Fetch A Parameter 

CALL on Fetch A Parameter to get a new volume value 

{ Fetch A Parameter returns via a pseudo-mouse click, 

which we'll call the FAP return click } 
{ Fetch A Parameter returns a value for the parameter 

it was to fetch, which well call the FAP exit value } 
IF 

the FAP return click is outside the Volume window 
THEN 

set the pseudo-mouse click area to the FAP return click area 

JUMP to the exit block ( at the end of this routine's pseudo-code ) 
IF 

the FAP exit value is invalid 
THEN 

JUMP back up to the top of the parameter-fetching block 
IF 

the FAP exit value is a change from the current volume 
THEN do the following 

set the volume to the FAP exit value 

send some feedback via Update Message Window 

CALL Type One Sound for a beep 
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the FAP return click isn't in the Volume window title 
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THEN 

JUMP back up to the parameter-fetching block 
ELSE { the FAP return click was in the title } 

give some feedback via Update Message Window 

give a beep via Type One Sound 

invert the frame counter via Invert An Area 

set frame type to 'volume' 
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set frame data to the new volume 
IF 

a CALL to Record A Sou nd Frame is successful 
THEN 

JUMP back up to the parameter-fetching block 
ELSE 

set the pseudo-mouse click area to NONE 
FALL THRU to this routine's exit block 
{ this is the exit block referred to above } 
CALL Update Message Window to clear the message area 
CALL Update Volume Window to make 'er pretty again 
CALL Invert An Area to normalize the Volume window title 
JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

Tempo Click 

CALL Invert An Area to invert the Tempo window tide 
{ this next unit is referred to as the parameter-fetching block } 
CALL Update Message Window to send some feedback 
CALL Type One Sound for a beep 
set up for a CALL to Fetch A Parameter 
CALL Fetch A Parameter to get a new tempo value 
( Fetch A Parameter returns via a pseudo-mouse click, 
which we'll call the FAP return click } 
{ Fetch A Parameter returns a value for the parameter 

it was to fetch, which we'll call the FAP exit value } 
IF 

the FAP return click is outside the Tempo window 
THEN 

set the pseudo-mouse click area to the FAP return click area 
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JUMP to the exit block { at the end of this routine's pseudo-code } 
IF 

the FAP exit value is invalid 
THEN 

JUMP back up to the top of the parameter-fetching block 
IF 

the FAP exit value is a change from the current tempo 
THEN do the following 

set the tempo to the FAP exit value 

send some feedback via Update Message Window 

CALL Type One Sound for a beep 
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IF 

the FAP return click isn't in the Tempo window title 
THEN 

JUMP back up to the parameter-fetching block 
ELSE { the FAP return click was in the title } 

give some feedback via Update Message Window 

give a beep via Type One Sound 

invert the frame counter via Invert An Area 

set frame type to 'tempo' 

set frame data to the new tempo 

IF 

a CALL to Record A Sound Frame is successful 
THEN 

JUMP back up to the parameter-fetching block 
ELSE 

set the pseudo-mouse click area to NONE 
FALL THRU to this routine's exit block 
{ this is the exit block referred to above } 
CALL Update Message Window to clear the message area 
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CALL Update Tempo Window to make 'er pretty again 

CALL Invert An Area to normalize the Tempo window title 

JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

Filter Click 

CALL Invert An Area to invert the Filter window title 
set target area to where the pseudo-mouse click occurred 
IF 

the target area is set to the Filter window title 
THEN 

move the target area to the first filter parameter 
{ this next unit is referred to as the parameter-fetching block ) 
CALL Update Message Window to send some feedback 
CALL Type One Sound for a beep 

set up so Fetch A Parameter will act on the target area and its parameter 
invert the target area's parameter label via HRBandlnvt ( from S/M ASM 2 ) 
CALL Fetch A Parameter to get a parameter value 
{ Fetch A Parameter returns via a pseudo-mouse click, 

which we'll call the FAP return click } 
{ Fetch A Parameter returns a value for the parameter 

it was to fetch, which we'll call the FAP exit value ) 
normalize the target area's parameter label via HRBandlnvt ( from S/M ASM 2 ) 
IF 

the FAP return click is outside the Filter window 
THEN 

set the pseudo-mouse click area to the FAP return click area 

JUMP to the exit block { at the end of this routine's pseudo-code ) 
IF 

the FAP exit value is invalid 
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THEN 

JUMP back up to the top of the parameter-fetching block 
IF 

the FAP exit value is different from the target area's current parameter value 
THEN 

change the target area's parameter value to the FAP exit value 

CALL Set Current Filter to change the target area's envelope 
IF 

the FAP return click isn't in the Filter window title 
THEN 

set the target area to the FAP return click's area 

JUMP back up to the top of the parameter fetching block 
ELSE { the FAP return click was in the title } 

give some feedback via Update Message Window 

give a beep via a CALL to Type One Sound 

invert the frame counter via Invert An Area 

set frame type to 'filter' 

set frame data to the five filter parameters 

IF 

a CALL to Record A Sound Frame is successful 

THEN do the following 

JUMP back up to the top of the parameter fetching block 

ELSE { the recording failed ) 

set the pseudo-mouse click area to NONE 
FALL THRU to this routine's exit block 
( this is the exit block referred to above } 
CALL Update Filter Window to redraw the Filter window 
CALL Update Message Window to clear the message area 
CALL Invert An Area to normalize the Filter window title 
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JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

CALL Update Message Window to print some feedback 

CALL Type One Sound for a beep 

doashortEause 

CALL Update Message Window to clear the feedback 

set the filter to the current filter array values 

RETURN 

Frame Click 

CALL on Invert An Area to invert the frame counter label 
{ this is the top of the parameter fetching block } 
CALL on Update Message Window to announce the click 
CALL on Type One Sound for a beep 
set up for a CALL to Fetch A Parameter 
CALL Fetch A Parameter to get a frame counter value 
{ Fetch A Parameter returns via a pseudo-mouse click, 
which we'll call the FAP return click 1 
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{ Fetch A Parameter returns a value for the parameter 

it was to fetch, which we'll call the FAP exit value ) 
IF 

the FAP return click is NOT in the frame counter 
AND 

the FAP return click is NOT in the frame counter label 
THEN 

set the pseudo-mouse click area to the FAP return click area 

JUMP to this routine's exit block 
IF 

the FAP exit value is invalid 
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OR 

the FAP exit value equals the current frame counter value 
THEN 

JUMP back up to the top of the parameter-fetching block 
{ we have a valid and novel frame counter value } 
save the current frame counter value 
set the frame counter to the FAP exit value 
CALL Show Frame to show the new frame counter value 
IF 

the FAP return click is in the frame counter 
THEN 

JUMP back up to the top of the parameter-fetching block 
ELSE { the FAP return click is in the frame counter label } 

CALL on Update Message Window to announce well record 

set up to record it at the saved frame counter value 

CALL on Invert An Area to invert the frame counter 

set frame data type to 'frame' 

set frame data to the new frame counter value 

IF 

a CALL to Record A Sound Frame is successful 

THEN 

JUMP back up to the top of the parameter fetching block 

ELSE ( the recording attempt was unsuccessful ) 
set the pseudo-mouse click area to NONE 
FALL THRU to this routine's exit block 
( this is the exit block referred to above } 
CALL on Update Messa ge Window to clear any messages 
CALL on Update Frame Counter to show the final frame counter value 
CALL on Invert An Area to normalize the frame counter label 
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JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

Go Click 

CALL on Invert An Area to invert the Go button 

CALL on Update Message Window to announce the button 

CALL on Type One Sound to announce the button 
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save the current frame counter value 

{ this is where we check the frame counter } 

IF 

the current frame is not recorded yet 
THEN 

JUMP down to this routine's last frame handler 
( the current frame is recorded } 
IF 

there's a pseudc— mouse click 
THEN do the following 

CALL on AreaSearch ( from S/M ASM 2 ) to determine the p-m click's area 

IF 

the user clicked the pseudo-mouse outside the Go button 

THEN 

JUMP down to this routine's user break handler 
fetch the frame's data offset 
fetch the frame's type 

CALL on Update Message Window to tell about the frame 
CALL on Update Frame Counter to show the current frame counter value 
CASE OUT on the frame type to do a frame : 
IF 

the frame type is 'sound' 
THEN 
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use the frame's data to make a sound 
ELSE IF 

the frame type is 'play' 
THEN 

use the frame's data to play a string 
ELSE IF 

the frame type is 'envelope' 
THEN 

use the frame's data to set an envelope 
ELSE IF 

the frame type is 'volume' 
THEN 

use the frame's data to set a volume 
ELSE IF 

the frame type is 'tempo' 
THEN 

use the frame's data to set a tempo 
ELSE IF 

the frame type is "filter' 
THEN 

use the frame's data to set a filter 
ELSE IF 

the frame type is 'frame' 
THEN 

use the frame's data to change the frame counter 
IF 

the frame type is anything other than 'frame' 
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THEN 

increment the frame counter 
JUMP back up to where we check the frame counter 
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( this is the last frame handler mentioned above ) 

CALL on Update Message Window to announce last recorded frame 

CALL on Type One Sound for a beep 

set pseudo-mouse click area to NONE 

JUMP to this routine's exit block 

{ this is the user break handler mentioned above ) 

CALL on Update Mes sage Window to announce that the user 

has stopped the playback 
CALL on Type One Sound for a beep 
set the pseudo-mouse click area to where the user clicked 
FALL THRU to this routine's exit block 
{ this is the exit block referred to above ) 
CALL on Update Mes sage Window to clear any messages 
restore the frame counter to the saved entry value 
CALL on Invert An Area to normalize the Go button 
JUMP back into the Lab Event I^oop to check out the pseudo-mouse click area 

Forward Click 

CALL on Invert An Area to invert the Forward button 

CALL on Update Mes sage Window to announce the button 

CALL on Type One Sound to announce the button 

REPEAT the following 

increment the frame counter, with wraparound 

CALL on Update Fra me Counter to show the changed counter 

UNTIL 

the pseudo-mouse button gets let up 

CALL on Show Frame. With Recorded rhwft to announce the changed frame 

counter 

CALL on Invert An Area to normalize the Forward button 
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CALL on Update Mes sage Window to clear all messages 
JUMP back to the top of Lab Event Loop 

load Click 

CALL on Invert An Area to invert the Load button 

CALL on Update Message Window to announce the button 

CALL on Type One Sound to announce the button 

Get A File Name, returning with a name and a pseudo-mouse area 

IF 

the returned pseudo-mouse area IS NOT the Load button 
THEN 

set the pseudo-mouse click area to the returned area 

JUMP to this routine's exit block 
IF 

the returned file name is characters long 
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THEN 

set the pseudo-mouse click area to NONE 

JUMP to this routine's exit block 
CALL on Update Message Window to announce file opening 
IF 

an attempt to open a fresh file with the returned name for sequential reading fails 
THEN 

JUMP to this subroutine's disk problems block 
{ the file opened successfully } 
Reset Sound Variables 

CALL on Update Message Window to announce data loading 
read important frame data variables from the file 
IF 

the frame data stack will hold some data 
THEN 
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FOR 

each data element in the frame data stack 
DO the following 

read the data element from the file into the stack 
IF 

the array of frame data offsets will hold some values 
THEN 
FOR 

each value in the array of frame data offsets 
DO the following 

read the value from the file into the array 
IF 

there will be any strings in the array of frame strings 
THEN 
FOR 

each string in the array of frame strings 
DO the following 

read the string from the file into the array 
IF 

there were reported disk problems 
THEN 

JUMP to this routine's disk problems block 
ELSE { the file reading worked ) 

speed up to 2 megahertz { VIC screen disappears } 

set up some feedback 

Update The Screen 

slow down to 1 megahertz ( VIC screen appears ) 

pause 2 seconds 

close the file 

Selected Algorithms From SOUND/MUSIC LAB Sheet 26 Of 43 



set the pseudo-mouse click area to NONE 
JUMP to this subroutine's exit block 
{ this is the disk problems block referred to above } 
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CALL on Send An Err or Messag e to announce the problem 

CALL on Clear Click to clear and redraw the screen 

close the file 

set the pseudo-mouse click area to NONE 

FALL THRU to this subroutine's exit block 

{ this is the exit block referred to above } 

CALL on Update Messa ge Window to clear any messages 

CALL on Invert An Area to normalize the Load button 

JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

Get A File Name 

CALL on Update Mes sage Window to print a prompt 

CALL on Type One Sound for a beep 

Pause 

CALL on StrngRectEdit ( from S/M ASM 1 ) to fetch a file name 

save the edit-ending pseudo-mouse click area 

CALL on Strip TP$ Trailing Blanks to clean the file name 

RETURN 

Clear Qj c K 

CALL on Invert An Area to invert the Clear button 

CALL on Update Me ssage Window to announce clearing 

CALL on Type One Sound for a beep 

Pause 

speed up to 2 megahertz speed { VIC screen disappears ) 

Reset Sound Variables 
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set a message for upcoming message window update 
Update The Screen ( our message will show up } 
slow down to 1 megahertz speed { VIC screen appears ) 
CALL on Type One Sound for a beep 
Pause 

CALL on Update Message Window to clear messages 
CALL on Invert An Area to normalize the Gear button 
JUMP back to the top of the Lab Event Loop 

Help Click 

CALL on Invert An Area to invert the Help button 

CALL on Type One Sound for a beep 

CALL on Update Message Window to clear the message window 

save VM1, which holds screen and character locations 

speed up to 2 megahertz { VIC screen disappears ) 

CALL on Invert An Area to normalize the Help button 

set GraphM, which sets the VIC display mode, to 40-column text 

move the finger cursor sprite so it'll show up on the help screen's Quit button 

set VIC's sights on RAM bank 1 by setting bit 6 of the MMU's 

RAM configuration register 
set VIC's sights on this help screen's memory quadrant by 

fiddling with bits and 1 of CIA #2 Port A 
set VIC's sights on this help screen's text by fiddling with VM 1 
slow down to 1 megahertz ( VIC screen appears ) 
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{ we're now looking at a help screen ) 
{ this is the button scanner ) 
REPEAT 

WAIT UNTIL 

there's a pseudo-mouse click 

CALL on AreaSearch ( from S/M ASM 2 ) to find the p-m click's area 
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UNTIL 

the click is inside one of the help screen's areas 
( we've got a click inside one of the help screen's areas, 
each of which represents a button } 

CALL on Tx40BandInvt ( from S/M ASM 2 ) to invert the clicked button's text 
CASE OUT on the clicked button 
IF 

it's a click of the First button 
THEN 

set the help screen to the first help screen 
ELSE IF 

it's a click of the Previous button 
THEN 

set the help screen to the previous help screen, with wraparound 
ELSE IF 

it's a click of the Next button 
THEN 

set the help screen to the next help screen, with wraparound 
ELSE IF 

it's a click of the Last button 
THEN 

set the help screen to the last help screen 
ELSE IF 

it's a click of the Quit button 
THEN 

JUMP to this subroutine's exit block 
CALL on Type One Sound for a beep 
CALL on Tx40BandInvt ( from S/M ASM 2 ) to normalize the 

clicked button's text 
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set VIC's sights on the help screen's text by fiddling with VM1 
set VIC's sights on the help screen's memory quadrant by 

fiddling with bits and 1 of CIA #2 Port A 
JUMP back up to this routine's button scanner 
( this is the exit block referred to above ) 
CALL on Type One Sound for a beep 
speed up to 2 megahertz { VIC screen disappears } 

CALL on Tx40BandInvt ( from S/M ASM 2 ) to normalize the clicked button's text 
set VIC's sights on RAM bank by clearing bit 6 of the MMU's 

RAM configuration register 
set VIC's sights on the Oth memory quadrant by setting bits 
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and 1 of CIA #2 Port A 
restore VM1 to the saved entry value 
set GraphM to 40-column bit-map 

move the finger cursor sprite so it'll show up on the lab screen's Help button 
slow down to 1 megahertz { VIC screen appears } 
JUMP back to the top of the Lab Event Loop 

CALL on Invert An Area to invert the Show Frame button 
CALL on Invert An Area to invert the frame counter 
IF 

there are no frames recorded 
THEN 

Send An Error Message 

set the pseudo-mouse click area to NONE 

JUMP to this routine's exit block 
{ there are frames recorded } 
IF 
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the current frame is not recorded yet 
THEN do the following 

set the current frame to the highest recorded frame 

CALL on Invert An Area to normalize the frame counter 

CALL on Update Fra me Counter to display the new frame counter value 

CALL on Invert An Area to invert the frame counter 
{ this is the top of the frame display loop } 
CALL on Update Mes sage Window to announce the frame 
CALL on Type One Sound for a beep 
fetch the frame's data offset 
fetch the frame's type 

CALL on Invert An Area to invert the frame's type's title area 
CASE OUT on the frame type as follows to show the frame: 
IF 

the frame type is 'sound' 
THEN 

set the current sound array to the frame's data 

CALL on Update Sound Window to show it 
ELSE IF 

the frame type is 'play' 
THEN 

set the current play string to the frame's stored string 

CALL on Update Plav Window to show it 
ELSE IF 

the frame type is 'envelope' 
THEN 

figure the envelope number 

set that envelope's parameters to the frame's stored data 

CALL on Set Current Envelope to set the envelope 

CALL on Update An Envelope to display it 
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CALL on HRBandlnvt ( from S/M ASM 2 ) to invert the envelope's number 
ELSE IF 

the frame type is 'volume' 
THEN 

set the current volume to the frame's data 

CALL on Update Volume Window to display the new volume level 
ELSE IF 

the frame type is 'tempo' 
THEN 

set the current tempo to the frame's data 

CALL on Update Tempo Window to display the new tempo level 
ELSE IF 

the frame type is "filter' 
THEN 

set the current filter array to the frame's data 

CALL on Set Current Filter to set that array 

CALL on Update Filter Window to display the current filter array 
ELSE IF 

the frame type is 'frame' 
THEN 

CALL on Invert An Area to normalize the frame counter 

set the frame counter to the frame's data 

CALL on Update Frame Counter to display the changed frame counter 
WAIT UNTIL 

there's a pseudc— mouse click 
save the pseudc— mouse click's area for a later test 
CALL on AreaSearch ( from S/M ASM 2 ) to figure the click's area 
CALL on Invert An Area to normalize the frame's type's title area 
CASE OUT on the frame type as follows to un-show the frame: 
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IF 

the frame type is 'sound' 
THEN 

clear the Sound window's data area 
ELSE IF 

the frame type is 'play' 
THEN 

CALL on Customize Plav Window to clear the Play window's data area 
ELSE IF 

the frame type is 'envelope' 
THEN 

CALL on HRBandlnvt ( from S/M ASM 2 ) to normalize the envelope's 
number 
ELSE IF 

the frame type is 'frame' 
THEN 

set the frame counter back to what it was 

CALL on Update Frame Counter to display the changed frame counter value 

CALL on Invert An Area to invert the frame counter 
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{ here's where we test the saved pseudo-mouse click area ) 
IF 

the saved pseudo-mouse click area is not the Print button 
THEN 

set the pseudo-mouse click area to the saved area 

JUMP to this routine's exit block 
move the current frame to the next frame, with wraparound 
CALL on Invert An Area to normalize the frame counter 
CALL on Update Frame Counter to display the changed current frame 
CALL on Invert An Area to invert the frame counter 
JUMP back up to the top of the frame display loop 
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{ this is the exit block referred to above ) 

CALL on Update Message Window to clear messages 

CALL on Invert An Area to normalize the frame counter 

CALL on Invert An Area to normalize the Show Frame button 

JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

Backward Click 

CALL on Invert An Area to invert the Backward button 
CALL on Update Message Window to announce the button 
CALL on Type One Sound to announce the button 
REPEAT the following 

decrement the frame counter, with wraparound 

CALL on Update Frame Counter to show the changed counter 
UNTIL 

the pseudo-mouse button gets let up 
CALL on Show Frame. With Recorded Check to announce the 

changed frame counter 
CALL on Update Message Window to clear all messages 
CALL on Invert An Area to normalize the Backward button 
JUMP back to the top of Lab Event Loop 

Save Click 

CALL on Invert An Area to invert the Save button 

CALL on Update Message Window to announce the button 

CALL on Type One Sound to announce the button 

Pause 

Get A File Name , returning with a name and a pseudo-mouse area 

IF 

the returned pseudo-mouse area IS NOT the Save button 
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THEN 

set the pseudo-mouse click area to the returned area 

JUMP to this routine's exit block 
IF 

the returned file name is characters long 
THEN 
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set the pseudo-mouse click area to NONE 

JUMP to this routine's exit block 
CALL on Update Message Window to announce file opening 
IF 

an attempt to open a fresh file with the returned name 
for sequential writing fails 
THEN 

JUMP to this subroutine's disk problems block 
{ the file opened successfully } 

CALL on Update Message Window to announce data saving 
file -print important frame data variables 
IF 

the frame data stack holds some data 
THEN 

FOR 

each data element in the frame data stack 

DO the following 

file-print the data element 
IF 

the array of frame data offsets holds some values 
THEN 

FOR 

each value in the array of frame data offsets 
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DO the following 

file-print the value 
IF 

there are any strings in the array of frame strings 
THEN 

FOR 

each string in the array of frame strings 

DO the following 

file-print the string 
burp the file buffer 
IF 

there were reported disk problems 
THEN 

JUMP to this subroutine's disk problems block 
ELSE { the file-printing probably worked } 

CALL on Update Message Window to announce the successful save 

Pause 

close the file 

set the mouse-click area to NONE 

JUMP to this subroutine's exit block 
{ this is the disk problems block referred to above } 
CALL on Send An Error Message to announce the problem 
close the file 

set the mouse-click area to NONE 
FALL THRU to this subroutine's exit block 
{ this is the exit block referred to above ) 
CALL on Update Message Window to clear any messages 
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CALL on Invert An Area to normalize the Save button 

JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 
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Strip TP$ Trailing Blanks 

figure out the length of TP$ 

use that length to set an array index to the final character in TP$ 

WHILE 

the indexed character of TP$ is a space 
AND 

the array index's value is greater than 
DO the following 

move the array index one character to the left 
set TP$ to its leftmost value-of-the-index characters 
RETURN 

Print Click 

call on Invert An Area to invert the Print button 

call on Update Message Window to send some feedback 

call on Type One Sound for a beep 

STARTING with 

the first frame 
FOR 

each recorded frame 
DO the following 
IF 

there's a pseudo-mouse click 
THEN do the following 

call on AreaSearch (from S/M ASM 2 ) to find out where the click 
occurred 

IF 

the pseudo-mouse click occurred outside the Print button 
THEN 
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call on Update Message Window to send some feedback 

call on Type One Sound for. a beep 

set the pseudo-mouse click area to where the click occurred 

JUMP to this routine's exit block 
call on Update Message Window for some feedback 
get the frame's data offset 
get the frame's type 
open the printer for output 
printer-print the frame number 
IF 

the frame type is 'sound' 
THEN do the following 

printer-print the frame type and the stored sound command 
ELSE IF 

the frame type is 'play' 
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THEN do the following 

grab the stored play string 

call on Strip TP$ Trailing Blanks to clean up the stored play string 

printer-print the frame type and the cleaned up play string 
ELSE IF 

the frame type is 'envelope' 
THEN do the following 

printer-print the frame type and the stored envelope command 
ELSE IF 

the frame type is 'volume' 
THEN do the following 

printer-print the frame type and the stored volume command 
ELSE IF 

the frame type is 'tempo' 
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THEN do the following 

printer-print the frame type and the stored tempo command 
ELSE IF 

the frame type is 'filter' 
THEN do the following 

printer-print the frame type and the stored filter command 
ELSE IF 

the frame type is 'frame' 
THEN do the following 

printer-print the frame type and the stored frame-to-jump-to 
IF 

the printer's printed 60 lines ( a page's worth ) 
THEN 

move to the next sheet of paper by printing 6 carriage returns 
burp the printer buffer 
close the printer 

renew the default disk drive device number 
set the pseudo-mouse click area to NONE 
{ this is the exit block referred to above } 
call on Update Message Window to clear any feedback 
call on Invert An Area to normalize the Print button 
JUMP back into the Lab Event Loop to check out the pseudo-mouse click area 

End Click 

call on Invert An Area to invert the End button 

call on Update Message Window for some feedback 

make a beeping sound 

call on Update Message Window for some feedback 

make a beeping sound 

call on Update Message Window for some feedback 
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make a beeping sound 

call on Invert An Area to normalize the End button 

set the finished flag to 'finished' 
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JUMP back to the top of Lab Event Loop 

Fetch A Parameter 
IF 

the entry value is out of bounds 
THEN 

drag it in 
make a string version of the entry value 
figure out the length of the stringized entry value 
figure out the width of the parameter's display band 
pad the stringized entry value with zeroes to fill the parameter's display band 
set up for a CALL to StmgRectEdit 
CALL on Stm gRectEdit (from S/M ASM 1) to edit the 

entry value string within its display band 
set an exit value by making a real number version of the edited entry value string 
IF 

the exit value is an invalid value 
THEN 

set the result code to 'exit value is invalid' 

set the exit value to the entry value 

Send An Error Message 
ELSE { the exit value is a valid value } 

set the result code 'exit value is valid' 
make a string version of the exit value 
figure out the length of the stringized exit value 
pad the stringized exit value with zeroes to fill the parameter's display band 
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set up for a printing-only CALL to Stm gRectEdit 

CALL on StmgRectEdit (from S/M ASM 1) to print the exit 

value string within its display band 
RETURN 

Record A So und Frame 
IF 

there's no room on the frame data stack 

OR 
there are no frames left to work with 

OR 
there's no room on the frame string stack 
THEN 

CALL on Invert An Area to normalize the frame counter 
Send An Error Message 
RETURN with a result code of 'failure' 
{ we have enough resources to record the frame } 
FOR 

each of the frame's data elements 
DO the following 

push the frame data element onto the frame data stack 
store the frame's data block offset into the array of frame 
data block offsets 
IF 
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the current frame's number is higher than the topmost 
recorded frame number 
THEN 

set the topmost recorded frame number to the current frame's number 
CALL on Update Message Window to send some feedback 
CALL on Type One Sound for a beep 
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CALL on Invert An Area to normalize the frame counter 

increment the frame counter, with wraparound 

show the new frame counter value with a CALL to Update Frame Counter 

RETURN with a result code of 'success' 

Type One Sound 

set maximum volume 
initiate the particular sound 
I,et Sound Finish 
restore current lab volume 
RETURN 

Type Three Sound 

set maximum volume 
initiate the particular sound 
Let Sound Finish 
restore current lab volume 
RETURN 

Let Sound Finish 
WAIT UNTIL 

the System sound variable SoundTime resets 
RETURN 

Show Frame, With Recorded Check. 
IF 

the frame hasn't been recorded yet 
THEN do the following 

CALL Update Message Window to send some feedback 
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CALL Type Three Sound for a beep 
CALL on Show Frame to announce the frame 
RETURN 

Show Frame 

CALL Update Message Window to announce the frame 
CALL Type One Sound for a beep 
count from 1 to 250 for a pause 
RETURN 

Send An Error Messag e 
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set maximum volume 
WHILE 

the error message is at least one character in length 
DO the following 

grab the leftmost 16 characters of the error message 
DO the following 2 TIMES 

CALL Update Message Window to show the grabbee 
CALL Type Three Sound for a beep 
count from 1 to 120 for a pause 
CALL Update Message Window to clear the show 
count from 1 to 60 for a pause 
remove the leftmost 16 characters from the error message 
restore current lab volume 
RETURN 

Error Handler 

build up an error message from the error descriptor string 
and the error site's line number 
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Send An Error Message 

RESUME the program at the line following the error site's line 

Pause 

count from 1 to 100 
RETURN 
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Chapter 16: 
Program Listings 



This chapter consists of eight figures, as follows: 

Fig. 16-1— code for S/M Asm 1. 

Fig. 16-2-code for S/M Asm 2. 

Fig. 16-3— code for S/M Help Packer. 

Fig. 16-4— code for Make S/M Vars. 

Fig. 16-5— code for Make 40C Screens. 

Fig. 16-6-code for 40C Edit. 

Fig. 16-7— list of variables for Sound/Music Lab. 

Fig. 16-8— code for Sound/Music Lab. 
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. Program Identification 

S/M ASM 1 

Assembly language tools for the BASIC 7.0 program 
. . . SOUND/MUSIC LAB 

Divided into three source files : 

S/M ASM 1 A.S 

S/M ASM 1 B.S 

S/M ASM 1 C.S 

Lives in RAM Bank at addresses $0400-$07E3 



To call the StrngRectEdit routine : 

you need to set up a parameter block, then 
. . . call the routine 

take a look at the comments at the head of 
. . . StrngRectEdit for more detail about each 
. . . item in the parameter block 

the parameter block can be implemented from 
. . . BASIC 7.0 as an array of 8 integer values 

in the examples that follow, 

SRE% ( ) is an array of 8 integer values 



EN$ 



EX$ 



TR 



BR 



LC 



RC 



TR 



AC 



CI 



CF 



is an entry string which 

. . . provides the characters to 

... be edited 

is an exit string which will 
. . . come out of the routine 
. . . with the edited string 

is the topmost row of the 

. . . editing rectangle [ . . 24 ] 

is the bottommost row of the 
... editing rectangle [0..24] 

is the leftmost column of the 
... editing rectangle [0..39] 

is the rightmost column of the 
. . . editing rectangle [ . . 39 ] 

is the topmost row of the 
... editing rectangle [0..39] 

is an area identification code 
, for the editing rectangle 

is the initial 0-based offset 
, of the editing cursor 
, within the string 

is the final 0-based offset 
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Fig. 16-1. Source code for S/M Asm 1. 
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... of the editing cursor 
. . . within the string 

okay, here's what each element of the parameter 
... block needs to get, along with an example of 
... BASIC 7.0 code. 

0th item gets a pointer to an entry editing 

... string 
example : 

SRE% (0) = POINTER (EN$) 



1 st item gets a pointer to an exit editing 

. . . string 
example : 

SRE% (1) = POINTER (EX$) 



2nd item gets the topmost row of the editing 

... rectangle [0..24] 
example : 

SRE% (2) = TR 



3rd item gets the bottommost row of the 
... editing rectangle [0..24] 

example : 

SRE% (3) = BR 



4th item gets the leftmost column of the 
... editing rectangle [0..39] 

example : 

SRE% (4) = LC 



5th item gets the rightmost column of the 
... editing rectangle [0..39] 

example : 

SRE% (5) = TR 



6th item gets an area identification code 

. . . for the rectangle 
example : 

SRE% (6) = AC 

if the id code sent is 0, the routine will 
return on ANY pseudo-mouse click 

7th item gets a pointer to an area data table 
example 



SRE% (7) = DEC ("15A3") 



8th item gets an initial 0-based position for 
. . . the editing cursor 



example 



SRE% (8) = CI 
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130 
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when calling the routine : 

the address of the parameter block gets 
. . . passed to the routine in the A- and X- 
... registers 

the Y- register holds a function selector ; 

just print the string 

1 print and edit the string 

after setting up the parameter block, here's 
. . . how you can call StrngRectEdit : 



SYS 1024, POINTER ( SRE% (0) ) AND 255, 

INT ( POINTER ( SRE% (0) ) / 256 ), 



1 



when the routine returns control to BASIC, 
. . . here ' s how you can find out which area 
. . . the pseudo-mouse was in when the user 
. . . chose to exit and where the editing cursor 
. . . ended up 

RREG AC, CP 

PRINT "THE PSEUDO-MOUSE WAS IN AREA" AC 

PRINT "THE EDITING CURSOR ENDED UP AT" CF 



Version : 
Times tamp 



1.00 

5:55 PM PST 



September 16, 1986 



Programmed by Stan Krute 

Copyright (C) 1986 by Stan Krute' s Hacker & Nerd 

18617 Camp Creek Road 
Hornbrook, California 96044 
[916] 475-3428 

All rights reserved 

Call or write for bug reports, help, licensing, etc. 



* 
* 
* 

* 

* 

* 
* 

* 
* 
* 

* 
* 
* 

* 

* 

* 
* 
* 

* 
* 

* 

* 
* 
* 

* 



Constants 



* bit-map stuff 
BMBase = $2000 

* character ROM stuff 
Char Rom = $D000 

* Commodore ASCII codes 



start of the standard hi-res 
. . . bit-map 



starting address for character 
... ROM 



CrsrDnCAC = 
CrsrLfCAC = 
CrsrRtCAC = 
CrsrUpCAC = 
DeleteCAC = 
InsertCAC = 
LeftArrowCAC 
SpaceCAC = 



17 

157 

29 

145 

20 

148 

95 

32 



code for 
code for 
code for 
code for 
code for 
code for 
code for 
code for 



cursor down 
cursor left 
cursor right 
cursor up 
delete 
insert 

a left arrow 
a space 
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195 






196 






197 


* cursor stuff 




198 






199 


CursWidth = 1 ; 


width in character positions 


200 


I 


... of the editing cursor 


201 






202 






203 


* data structure stuff 




204 






205 


SREPrmBlkSiz =18 ; 


size of a parameter block 


206 


I 


. . . record for StrngRectEdit 


207 






208 






209 


* low-memory system variables 


210 






211 


StaVec = $2B9 J 


points to a zero-page pointer 


212 




. . . for IndSta ROM call 


213 






214 






215 


* memory configuration stuff 


216 






217 


Bank14 = %00000001 


configuration byte for Bank 14 


218 


MmuCR = $FF00 


the always-available memory 


219 




. . . configuration register 


220 






221 






222 


* ROM routines — document* 


id 


223 






224 


Getln = $FPE4 


read buffered data from 


225 




. . . current input device 


226 


IndFet = $FF74 


; fetch data from any bank 


227 


IndSta = $FF77 


store data to any bank 
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229 






230 


* routines from S/M ASM 2.0 


231 






232 


AreaSearch = $1 468 


■ see if a mouse click is in 
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... a defined screen area 


234 


HRBandlnvt = $1512 


■ hi -res band inversion 


235 






236 






237 


* sprites 




238 






239 


SprHzAdj = 24-8 


( horizontal adjustment factor 


240 




... for sprite- screen 


241 




; ... coordinate conversions 


242 


SprVtAdj = 50 


: vertical adjustment factor 


243 




i ... for sprite-screen 


244 




: ... coordinate conversions 


245 






246 






247 


* variables from S/M ASM 2 





248 






249 


ButnStat = $1B14 


; status of the pseudo-mouse 


250 




; ... button 


251 


ClikHzHi = $1B16 


hi -byte of horizontal 


252 




; ... location of a pseudo-mouse 


253 




; ... click 


254 


ClikHzLo = $1B15 


; lo-byte of horizontal 


255 




... location of a pseudo-mouse 


256 




! ... click 


257 


ClikVt = $1B17 


vertical location of a 


258 




• ... pseudo-mouse click 


259 
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260 

261 * zero-page variables 

262 

263 OurPtrl = $PA ; a general -purpose pointer 

264 OurPtr2 = $FC ; a general -purpose pointer 

265 OurPtr3 = $C8 j a general -purpose pointer 

266 0urPtr4 = $CA ; a general-purpose pointer 
267 

268 

269 * Macros 

270 

271 * a nice pseudo-unconditional branch 

272 

273 BRA MAC 

274 CLV 

275 BVC ]1 

276 <<< 
277 

278 

279 * Set Program Origin 

280 

281 * since SOUND/MUSIC LAB operates in graphics mode 1 

282 * ... ( hi-res. bit-map) we are able to use $0400-$07F7 

283 * ... for this group of routines 
284 

285 ORG $0400 ; that's 1024 in decimal, folks 

286 

287 

288 * StrngRectEdit * 

289 

290 * edits a character string that fills a row/column 

291 * ... rectangle on the standard hi-res bit-map screen 
292 

293 * can also be used to just print the string 

294 * ... in its rectangle 
295 

296 * the character string must have a length of 1..255 

297 * ... characters 
298 

299 * the string length should be equal to the area of the 

300 * ... row/ column rectangle ( numberRows * numberColumns ) 
301 

302 * actually, you send the routine two strings of equal 

303 * ... length : an entry string containing the character 

304 * ... information to edit, and an exit string that the 

305 * ... routine will actually work on 
306 

307 * upon exit from the procedure, the exit string will 

308 * ... contain an edited version of the entry string, 

309 * ... and the entry string will be unchanged 
310 

311 * also, the A- register will contain an area code 

312 * ... identifying where the pseudo-mouse was when 

31 3 * . . . the user chose to exit the routine via a 

314 * . . . pseudo mouse click 
315 

316 * also, the X- register will contain a 0-based offset 

317 * ... indicating where the editing cursor finished 

318 * ... up at in the string 
319 

320 * allows the user to type characters, use Insert and 

321 * ... Delete keys, use the cursor keys, and use the 

322 * ... joystick-controlled mouse as she/he edits 
323 

324 * upon entry, A- (lo-byte) and X- (hi -byte) point to a 
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0400: 8C F2 06 



0403: 
0405: 



85 C8 

86 C9 



0407: 20 44 04 



040A: 20 8E 04 



325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 



parameter block record of the following form 



offset 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 



contents 



hi-byte of entry string record 

lo-byte of entry string record 

hi-byte of exit string record 

lo-byte of exit string record 

filler byte 

topmost row of editing rectangle 

filler byte 

bottommost row of editing rectangle 

filler byte 

leftmost row of editing rectangle 

filler byte 

rightmost row of editing rectangle 

filler byte 

area identifier for the rectangle 

hi-byte of area data list 

lo-byte of area data list 

filler byte 

initial position for editing cursor 

... in the string 



* the string records have the following form 



offset 



* 

* 

* 

* 1 

* 2 



contents 



length of string 

lo-byte of address of actual string bytes 

hi-byte of address of actual string bytes 



* upon entry, the Y- register contains a function selector 



just print the string 

1 print and edit the string 



* see the Program Identification block for information on 

* ... setting up for and calling this routine from BASIC 

* parameters aren't checked for wackitude, so send 

* ... ' em in correct 

* all registers are trashed 

* to make things a bit more comprehensible, yet still 

* ... easily self-contained, I've used a liberal 

* ... sprinkling of local subroutines 

StrngRectEdit 

* store function flag 

STY :PuncFlag 

* store pointer to the parameter block 

STA OurPtr3 
STX OurPtr3+1 

* store some items from the parameter block 

JSR :StorStuf 

* set up strings 

JSR :SetStrgz 

* initialize some editing variables 
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040D: 20 6A 04 



0410: A9 00 

0412: AE FD 06 

0415: CA 

0416: 20 5B 06 



0419: AC F2 06 
041C: F0 25 



041E: 
0421: 



0424: 
0427: 



20 99 05 
20 A5 05 



20 E4 FF 
FO 07 



0429: 20 DE 04 



042C: 
042E: 



0430: 

0433: 



BO OC 
90 EE 



AD 14 1B 
FO EF 



0435: 20 32 05 



0438: 90 E4 



043A: 
043D: 
0440: 



20 99 05 
AD 01 07 
AE FE 06 



0443: 60 



390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 



JSR 



ilnitEdVars 



* draw the exit string on the bit-map screen 

LDA #0 ; start at Oth char 

LDX : Length ; end at last char 

DEX 

JSR :DrwStrSec ; draw that section 

* see if we're here just to print, or to edit, too 
LDY :FuncFlag ; grab the flag 



BEQ :ByeTwo 



branch on it 



:EditLoopTop 

* this is the top of the editing loop 

* draw the editing cursor in its current position 

JSR :InvertCursor 

* figure the string's hot spot 

JSR :FigHotSpot 



:LookKey 

* look for a keypress 
JSR Getln 
BEQ : LookMouse 



look for keyboard input 
no keypress, so next test 



* we got a keypress, so go deal with it 

JSR :DealKey 

* if we come back with Carry set, do an exit 

* otherwise, back up to top of loop 

BCS :ByeOne 

BCC :EditLoopTop ; then back up to top of loop 

: LookMouse 

* look for a pseudo-mouse button click 



LDA 

BEQ 



ButnStat 
: LookKey 



check the p-m button state 
no p-m click, so look at 
. . . keyboard again 



* we got a pseudo-mouse click, so go deal with it 

JSR :DealMouse 

* if we come back with Carry set, do an exit 

* otherwise, back up to top of loop 

BCC :EditLoopTop ; then back up to top of loop 

: ByeOne 

* erase the editing cursor in its current position 

JSR : InvertCursor 

* pick up an exit area code 

LDA :AreaID 

* pick up cursor position within string 

LDX :HotSpot 

: ByeTwo 

* return from StrngRectEdit 

RTS 



* local subroutines * 

* :StorStuf * 



243 



0444: A0 11 



0446: A2 23 



0448: 
044B: 



BD 04 07 
8D 64 04 



044E: 
044F: 
0452: 



0455: 
0458: 

045A: 
045C: 
045F: 



CA 

BD 04 07 

8D 63 04 



8E F8 06 
A9 C8 
A2 01 
20 74 FF 
AE F8 06 



0462: 8D F9 06 



0465: 
0466: 
0467: 



CA 
88 
10 DF 



0469: 60 



455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
515 
516 
517 
>1 
>2 
>3 



* store some items from the parameter block 

* upon exit, all registers trashed 
:StorStuf 

* initialize Y- register to index into the param. block 

* ... and count thru the coming loop 

LDY #SREPrmBlkSiz-1 

» initialize X- register to index into a table of 

* ... destinations for the param. block info 

LDX #SREPrmBlkSiz*2-1 

: StSLoop 

* okay, we can unload that block in a sweet loop 

* set up next byte's destination address 
LDA :WherTab,X ; set the hi -byte of a 



STA :Store+2 



DEX 
LDA 
STA 



:WherTab,X 
:Store+1 



destination address 

WARNING 

...we actually modify the 

. . . storage address that ' s 

... in the code , breaking a 

... generally important 

. . . programming convention : 

... NO SELF -MODIFYING CODE It! 

... but it works, is safe, 

... and I'm not the one 

. . . who designed a non- 

. . . orthogonal instruction 

. . . set anyways 

... Defensive Stan 

lo-byte of dest. address 



* go grab a byte of the parameter block 

* ... ( which is in the other RAM bank) 



STX 
LDA 
LDX 
JSR 

LDX 



: Tempi 
#OurPtr3 
#1 

IndFet 
: Tempi 



save X- register 

point to zero-page pointer 

indicate bank 1 

fetch a byte from Bank 1 

restore X- register 



* store the byte from the parameter block 



: Store 



STA 



: Temp 2 



this command is the one we 
modify by changing the 
storage address 



; down those index/ counters 



* bottom of the loop 

DEX 
DEY 
BPL : StSLoop ; loop until finished 

* return from :StorStuf 

RTS 

TTL "S/M ASM 1 B.S" 
* Here Comes The Second Source File 

PUT "S/M ASM 1 B.S" 



* :InitEdVars 
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>4 
















>5 
>6 


* 


initialize 


some editing variables 










>7 
>8 
>9 


* 


upon exit, 


A- and Y- registers trashed 










; 


InitEdVars 












>10 
















>11 


* 


get the editing cursor to upper-left corner 










>12 


* 


... of the 


editing rectangle 


046A: 


AD 


F5 


06 


>13 




LDA 


:Left 


046D: 


8D 


FA 


06 


>14 




STA 


:EdCrsHz 


0470: 


AD 


F3 


06 


>15 




LDA 


:Top 


0473: 


8D 


FB 


06 


>16 
>17 




STA 


:EdCrsVt 










>18 


* 


now move it 


to where it ' s to start 


0476: 


AC 


FC 


06 


>19 




LDY 


:InCrsPs ; grab the goal 


0479: 


F0 


06 




>20 
>21 




BEQ 


:FigWid ; if we're already there 


047B: 


20 


A8 


06 


>22 


: 


ICPLup JSR 


:CursRit ; move one position to the right 


047E: 


88 






>23 




DEY 


; down the count 


047P: 


DO 


FA 




>24 
>25 
>26 


: 


BNE 
FigWid 


: ICPLup ; go 'til there 










>27 


* 


figure out 


the width of the editing rectangle 










>28 


* 


this '11 be 


used to update the string's hot spot 


0481: 


38 






>29 




SEC 


; straightforward 1 -byte 


0482: 


AD 


F6 


06 


>30 




LDA 


: Right ; ... [m6[m6ubtraction 


0485: 


ED 


F5 


06 


>31 




SBC 


:Left 


0488: 


AA 






>32 




TAX 




0489: 


E8 






>33 




INX 




048A: 


8E 


F7 


06 


>34 
>35 




STX 


: Width 










>36 


* 


return from 


: InitEdVars 


048D: 


60 






>37 
>38 
>39 




RTS 












>40 


* 


:SetStrgz * 










>41 
















>42 


* 


gets the length of the strings, copies the entry 










>43 


* 


. . . string 


to the exit string, and returns a 










>44 


* 


. . . pointer 


to the exit string (which is the string 










>45 


* 


... we'll be working with) 










>46 
















>47 


* 


upon entry, 


OurPtrl and OurPtr2 point 










>48 
>49 


* 


to the entry and exit string records respectively 










>50 


* 


upon exit, 


0urPtr2 points to the actual exit string 










>51 
















>52 


* 


trashes A- 


and Y- registers 










>53 
















>54 
















>55 
>56 

>57 


* 


remember : 


the string records have the following form : 










* 


offset 


contents 










>58 


* 














>59 


* 





length of string 










>60 


* 


1 


lo-byte of address of actual string bytes 










>61 


* 


2 


hi-byte of address of actual string bytes 










>62 
















>63 






_ 










>64 


:SetStrgz 












>65 
















>66 


♦ 


initialize ' 


if- for indexing 


D48E: 


AO 


00 




>67 
>68 




LDY 


#0 
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0490: 
0492: 
0494: 
0497: 



A9 FA 
A2 01 
20 74 FF 
8D FD 06 



049A: C8 



049B: 
049D: 
049F: 



A9 FA 
A2 01 
20 74 FF 



04A2: 48 



04 A3: 
04A5: 
04A7: 



A9 FC 
A2 01 
20 74 FF 



04AA: 48 



04AB: C8 



04 AC: 
04AE: 
04BO: 



A9 FA 
A2 01 
20 74 FF 



04B3: 85 FB 



04B5: 
04B7: 
04B9: 



A9 FC 
A2 01 
20 74 FF 



04BC: 85 FD 



04BE: 68 



04BF: 
04C1: 
04C2: 



04C4: 
04C6: 



85 FC 
68 
85 FA 



A0 00 
A9 FC 



04C8: 8D B9 02 



04CB: 
04CD: 
04CF: 



04D2: 
04D4: 



A9 FA 
A2 01 
20 74 FF 



A2 01 

20 77 FF 



>69 

>70 

>71 

>72 

>73 

>74 

>75 

>76 

>77 

>78 

>79 

>80 

>81 

>82 

>83 

>84 

>85 

>86 

>87 

>88 

>89 

>90 

>91 

>92 

>93 

>94 

>95 

>96 

>97 

>98 

>99 

>100 

>101 

>102 

>103 

>104 

>105 

>106 

>107 

>108 

>109 

>110 

>111 

>112 

>113 

>114 

>115 

>116 

>117 

>118 

>119 

>120 

>121 

>122 

>123 

>124 

>125 

>126 

>127 

>128 

>129 

>130 

>131 

>132 

>133 



* get string lengths 

* remember, both strings have same length 

LDA #OurPtr1 ; point to a pointer 

LDX #1 ; indicate Bank 1 

JSR IndFet ; grab length of entry string 

STA : Length ; store it 

* set pointers to actual strings 

* grab lo-bytes of string addresses first, and stack 'em 



INY 

LDA 
LDX 
JSR 

PHA 



#OurPtr1 

#1 

IndFet 



LDA #OurPtr2 

LDX #1 

JSR IndFet 

PHA 



move index to lo-byte 
. . . address of string 
point to a pointer 
indicate Bank 1 
grab lo-byte address of 
. . . entry string 
park on stack 

point to a pointer 

indicate Bank 1 

grab lo-byte address of 

. . . exit string 

park on stack 



* now grab the hi -bytes of the string addresses, 

* ... and store ' em 



INY 



LDA 
LDX 
JSR 


#OurPtr1 

#1 

IndFet 


STA 


OurPtrl +1 


LDA 
LDX 
JSR 


<IOurPtr2 

#1 

IndFet 


STA 


OurPtr2+1 



move index to hi -byte 

. . . address of string 

point to a pointer 

indicate Bank 1 

grab hi -byte address of 

. . . entry string 

and store it 

point to a pointer 
indicate Bank 1 
grab hi -byte address of 
. . . exit string 
; and store it 



* pull lo-bytes off the stack, and store 'em 

* (we do this juggling to economize on pointers) 

PLA ; get lo-byte address of 

; ... exit string 
STA OurPtr2 ; and store it 
PLA ; do same for entry string 

STA OurPtrl ; and store it 



* okay, we've got some pointers, so it's copy time 

* set up for a copying loop 



LDY 
LDA 

STA 



#0 
#OurPtr2 

StaVec 



Y- will count and index 
set up inter-bank storage 
. . . vector 



* loop to copy bytes of entry string to exit string 
:SSLoop LDA #OurPtr1 ; point to zero-page pointer 



LDX 
JSR 



LDX 
JSR 



#$01 
IndFet 



#1 
IndSta 



indicate Bank 1 

grab a byte of entry string 

byte comes back in A- register 

indicate Bank 1 

store a byte of entry string 



* loop bottom 
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04D7: 


C8 




>134 


04D8: 


CC 


FD 


06 >135 


04DB: 


90 


EE 


>136 
>137 
>138 


04DD: 


60 




>139 
>140 
>1 41 
>142 
>143 
>144 
>145 
>146 
>147 
>148 
>149 
>150 
>151 
>152 
>153 
>154 
>155 
>156 


04DE: 


C9 


20 


>157 


04EO: 


90 


09 


>158 


04E2: 


C9 


60 


>159 


04E4: 


BO 


05 


>160 
>1 61 

>162 
>163 
>164 
>165 


04E6: 


20 


CA 


05 >166 
>167 
>168 


04E9: 


18 




>169 


04EA: 


60 




>170 
>171 
>172 
>173 
>174 


04EB: 


C9 


91 


>175 


04ED: 


DO 


08 


>176 
>177 
>178 
>179 


04EF: 


20 


99 


05 >180 
>1 81 
>182 


04F2: 


20 


E1 


06 >183 
>184 
>185 


04F5: 


18 




>186 


04F6: 


60 




>187 
>188 
>189 
>190 
>191 


04F7: 


C9 


11 


>192 


04F9: 


DO 


08 


>193 
>194 
>195 
>1 96 


04FB: 


20 


99 


05 >197 
>198 



INY 

CPY : Length 
BCC : SSLoop 

* return from :SetStrgz 
RTS 



; up the counter 

; done yet ? 

; loop 'til done 



* .DealKey * 

* deal with a keypress 

* upon entry, A- holds the keypress' C-ASCII code 

* upon exit, all registers trashed 

* upon exit, Carry flag set signals exit time 

* Carry flag clear signals edit some more 

: DealKey 

:PrChTest 

* is it a printable character keypress ? 

CMP #SpaceCAC ; we want it in the range 
BCC :CrsUpTest ; ... Space. .LeftArrow 
CMP #LeftArrowCAC+1 

BCS :CrsUpTest ; if not in range, next 
; ... test 



* yes, it's a printable character keypress 

* go deal with it 

JSR :OveRite 

* signal for more editing and leave 

CLC 

RTS 



:CrsUpTest 

* is it a cursor-up keypress ? 

CMP #CrsrUpCAC ; check it out 

BNE :CrsDnTest ; if not, next test 

* yes, it's a cursor-up keypress 

* erase the cursor at its present position 

JSR :InvertCursor 

* adjust the cursor position upwards 

JSR :CursUp 

* signal for more editing and leave 

CLC 
RTS 



:CrsDnTest 

* is it a cursor-down keypress ? 

CMP #CrsrDnCAC ; check it out 

BNE :CrsLfTest ; if not, next test 

* yes, it's a cursor-down keypress 

* erase the cursor at its present position 

JSR :InvertCursor 
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04FE: 20 DO 06 



0501: 18 
0502: 60 



0503: C9 9D 
0505: DO 08 



0507: 20 99 05 



050A: 20 BC 06 



050D: 18 
050E: 60 



050F: C9 1D 
0511 : DO 08 



0513: 20 99 05 



0516: 20 A8 06 



0519: 18 
051A: 60 



051B: C9 94 
051D: DO 05 



051P: 20 E9 05 



0522: 18 
0523: 60 



0524: C9 14 
0526: DO 05 



0528: 20 1F 06 



199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 



* adjust the cursor position downwards 

JSR :CursDwn 

* signal for more editing and leave 

CLC 

RTS 



:CrsLfTest 

* is it a cursor-left keypress ? 

CMP #CrsrLfCAC ; check it out 

BNE :CrsRtTest ; if not, next test 

* yes, it's a cursor-left keypress 

* erase the cursor at its present position 

JSR :InvertCursor 

* adjust the cursor position leftwards 

JSR :CursLft 

* signal for more editing and leave 

CLC 

RTS 



:CrsRtTest 

* is it a cursor -right keypress ? 

CMP #CrsrRtCAC ; check it out 

BNE :InsrTest ; if not, next test 

* yes, it's a cursor-right keypress 

* erase the cursor at its present position 

JSR :InvertCursor 

* adjust the cursor position rightwards 

JSR :CursRit 

* signal for more editing and leave 

CLC 

RTS 



:InsrTest 

* is it an insert keypress ? 

CMP #InsertCAC j check it out 

BNE :DeleTest ; if not, next test 

* yes, it's an insert keypress 

* go deal with it 

JSR : Insert 

* signal for more editing and leave 

CLC 

RTS 



:DeleTest 

* is it a delete keypress ? 

CMP #DeleteCAC ; check it out 

BNE :KPNoGood ; if not, keypress is no good 



* yes, it's a delete keypress 

* go deal with it 

JSR : Delete 
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052B: 
052C: 



18 
60 



052D: 20 99 05 



0530: 
0531: 



18 
60 



0532: 
0535: 

0538: 



053B: 
053E: 



0540: 
0543: 



AD 02 07 
AE 03 07 

20 68 14 



AE 01 07 
P0 54 



CD 01 07 
DO 4F 



0545: 20 99 05 



0548: 
0549: 



38 

AD 15 1B 



054C: E9 10 



>264 

>265 

>266 

>267 

>268 

>269 

>270 

>271 

>272 

>273 

>274 

>275 

>276 

>277 

>278 

>279 

>280 

>281 

>282 

>283 

>284 

>285 

>286 

>287 

>288 

>289 

>290 

>291 

>292 

>293 

>294 

>295 

>296 

>297 

>298 

>299 

>300 

>301 

>302 

>303 

>304 

>305 

>306 

>307 

>308 

>309 

>310 

>311 

>312 

>313 

>314 

>315 

>316 

>317 

>318 

>319 

>320 

>321 

>322 

>323 

>324 

>325 

>326 

>327 

>328 



* signal for more editing and leave 
CLC 

RTS 



:KPNoGood 

* the keypress is not one we deal with 

* erase the cursor at its present location 

* ( so the calling loop can redraw it ) 

JSR : InvertCursor 

* signal for more editing and leave 

CLC 

RTS 



* :DealMouse * 

* deal with a pseudo-mouse click 

* upon exit, all registers trashed 

* upon exit, Carry flag set signals exit time 

* Carry flag clear signals edit some more 

* if it's exit time, A- register holds 

* ... an area id code 

:DealMouse 

* where' d it happen ? call the AreaSearch routine 

LDA :ArDtLo j point to the area data table 

LDX :ArDtHi 

JSR AreaSearch ; call the routine 

* are we looking for an area ? 

* a non-zero area identification number says "yes" 

* ... and zero says "no" 

LDX :AreaID ; check it out 
BEQ :NotLookin 

* we are looking for an area 

* if result is not our rectangle's area id, it's 

* ... time to exit 

CMP :AreaID ; check it out 
BNE :DMExitBye ; if not ours 

* the mouse has been pressed in our rectangle ' s area 

* so we ' 11 move the cursor to the mouse click 

* invert the cursor at its current location, thereby 

* ... erasing it 

JSR : InvertCursor 

* convert horizontal point of mouse click, which is in 

* ... sprite coordinates, to a text-screen- like 0..39 

* ... horizontal coordinate 

* we first convert the sprite horizontal position to 

* ... a screen horizontal position 

SEC ; prepare to subtract 

LDA ClikHzLo ; get lo-byte of sprite 

; ... horizontal position 
SBC #<SprHzAdj ; subtract lo-byte of sprite 

; ... horizontal adjustment 
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>329 


054E: 


48 






>330 


054F: 


AD 


16 


1B 


>331 
>332 


0552: 


E9 


00 




>333 
>334 
>335 
>336 
>337 
>338 


0554: 


4A 






>339 
>340 


0555: 


68 






>341 
>342 


0556: 


6A 






>343 
>344 


0557: 


4A 






>345 


0558: 


4A 






>346 
>347 
>348 
>349 
>350 
>351 


0559: 


CD 


F5 


06 


>352 
>353 


055C: 


BO 


06 




>354 
>355 
>356 
>357 


055E: 


AD 


F5 


06 


>358 
>359 
>360 


0561: 


B8 






>360 


0562: 


50 


OA 




>360 
>360 
>361 
>362 
>363 


0564: 


CD 


F6 


06 


>364 
>365 


0567: 


90 


05 




>366 


0569: 


FO 


03 




>367 
>368 
>369 


056B: 


AD 


F6 


06 


>370 
>371 
>372 
>373 


056E: 


8D 


FA 


06 


>374 
>375 
>376 
>377 
>378 
>379 
>380 
>381 


0571: 


38 






>382 


0572: 


AD 


17 


1B 


>383 


0575: 


E9 


32 




>384 
>385 
>386 
>387 
>388 


0577: 


4A 






>389 


0578: 


4A 






>390 







. . . factor 


PHA 




save the result 


LDA 


ClikHzHi 


get hi-byte of sprite 
... horizontal position 


SBC 


#>SprHzAdj 


subtract hi-byte of sprite 
... horizontal adjustment 
; ... factor 



* now, just divide the screen horizontal position by 8 

* ... via repeated right shifts 



LSR 
PLA 
ROR 

LSR 

LSR 



shift hi-byte, putting its 
. . . vital bit into Carry 
get back lo-byte of screen 
. . . horizontal position 
shift it, including effect 
... of hi-byte 
two more shifts will do it 



* make sure this new horizontal coordinate is in bounds 

:DMLfTst 

* test against editing rectangle's left coordinate 

CMP :Left J want to be greater than or 

; ... equal to left coordinate 

BCS :DMRiTst ; okay, so test against right 
; ... coordinate 

* outside left boundary, so rope 'er in 



LDA 


:Left 


replace with left side 
. . . coordinate 


BRA 


:DMHzStr 


go store it 


CLV 






BVC 


:DMHzStr 




<<< 







:DMRiTst 

* test against editing rectangle's right coordinate 



CMP : Right 



BCC 

BEQ 



:DMHzStr 
:DMHzStr 



want to be less than or 

. . . equal to right coordinate 

we're okay, go store 

we're okay, go store 



* outside right boundary, so rope 'er in 

LDA : Right 

:DMHzStr 

* store the editing cursor's new horizontal coordinate 

STA :EdCrsHz 

* convert vertical point of mouse click, which is in 

* ... sprite coordinates, to a text-screen- like 0..24 

* ... vertical coordinate 

* we first convert the sprite vertical position to 

* ... a screen vertical position 



SEC 
LDA 
SBC 



ClikVt 
(HSprVtAdj 



prepare to subtract 
get sprite vertical position 
subtract sprite vertical 
... adjustment factor 



* now, just divide the screen vertical position by 8 

* ... via repeated right shifts 

LSR ; three right shifts will do it 

LSR 
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0579: 4A 

057A: CD F3 06 
057D: BO 06 

057F: AD F3 06 

0562: B8 
0583: 50 OA 

0585: CD F4 06 

0588: 90 05 
058A: FO 03 

058C: AD F4 06 
058F: 8D FB 06 



0592: 18 
0593: 60 



0594: 8D 01 07 



0597: 38 
0598: 60 



0599: AD FA 06 
059C: AE FB 06 
059F: AO 01 



>391 

>392 

>393 

>394 

>395 

>396 

>397 

>398 

>399 

>400 

>401 

>402 

>403 

>404 

>404 

>404 

>404 

>405 

>406 

>407 

>408 

>409 

>410 

>411 

>412 

>413 

>414 

>415 

>416 

>417 

>418 

>419 

>420 

>421 

>422 

>423 

>424 

>425 

>426 

>427 

>428 

>429 

>430 

>431 

>432 

>433 

>434 

>435 

>436 

>437 

>438 

>439 

>440 

>441 

>442 

>443 

>444 

>445 

>446 

>447 

>448 

>449 

>450 

>451 

>452 



LSR 

* make sure this new vertical coordinate is in bounds 

:DMTopTst 

* test against editing rectangle's top coordinate 

want to be greater than or 

equal to top coordinate 



CMP 
BCS 



:Top 
:DMBtmTst 



okay, so test against bottom 
. . . coordinate 



* outside top boundary, so rope 'er in 

LDA :Top ; replace with top coordinate 

BRA :DMVtStr ; go store it 

CLV 

BVC : DMVtStr 

<<< 

: DMBtmTst 

* test against editing rectangle's bottom coordinate 



CMP 

BCC 

BEQ 



: Bottom 

: DMVtStr 
: DMVtStr 



want to be less than or 

. . . equal to bottom coordinate 

we're okay, go store 

we're okay, go store 



* outside bottom boundary, so rope 'er in 

LDA : Bottom 

: DMVtStr 

* store the editing cursor's new vertical coordinate 

STA :EdCrsVt 

: DMMorBye 

* signal more editing and return from :DealMouse 

CLC 
RTS 

:NotLookin 

* we're not looking for a specific area, just a 

* ... pseudo-mouse click 

* when we get one, it's time to exit 

:DMExitBye 

* store the exit area's id 

STA :AreaID 

* signal exit time and return from :DealMouse 

SEC 

RTS 



* :InvertCursor * 

* inverts the cursor at its present position 

* ... by calling our hi-res band inversion routine 

* all registers trashed 

: InvertCursor 

* set up for inversion function 

LDA :EdCrsHz ; A- holds starting column 

LDX :EdCrsVt ; X- holds row 

LDY #CursWidth ; Y- holds band width 

* call it 
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05A1: 20 12 15 



05A4: 60 



05A5: 38 

05A6: AD FB 06 

05A9: ED F3 06 

05AC: AA 



05AD: A9 00 
05AF: F0 04 



05B1: 18 
05B2: 6D F7 06 



05B5: CA 
05B6: 10 F9 



05B8: 8D F9 06 



05BB: 38 
05BC: AD FA 06 
05BF: ED F5 06 



05C2: 18 
05C3: 6D F9 06 
05C6: 8D FE 06 



05C9: 60 



>453 
>454 
>455 
>456 
>457 
>458 
>459 
>460 
>461 
>462 
>463 
>464 
>465 
>466 
>467 
>468 
>469 
>470 
>471 
>472 
>473 
>474 
>475 
>476 
>477 
>478 
>479 
>480 
>481 
>482 
>483 
>484 
>485 
>486 
>487 
>488 
>489 
>490 
>491 
>492 
>493 
>494 
>495 
>496 
>497 
>498 
>499 
>500 
>501 
>502 
>503 
>504 
>505 
>506 
>507 
>508 
>509 
>510 
>511 
>512 
>513 
>514 
>515 
>516 
>517 



JSR HRBandlnvt ; invert away 

* return from :InvertCursor 
RTS 



* :FigHotSpot * 

* figure the string's hot spot 

* ... based on current cursor position 

* as the cursor moves, the hot spot follows 

* the formula is as follows : 

* :HotSpot = ( ( :EdCrsVt - :Top ) * :Width ) 

* + ( :EdCrsHz - :Left ) 

* remember, strings are limited to 255 characters 

* trashes all registers 

:FigHotSpot 

* figure what relative row we're in :EdCrsVt - :Top 

SEC 

LDA :EdCrsVt 
SBC :Top 

TAX ; we'll use relative row 

; ... for loop counting 

* initialize product to and go to the bottom 

* ... of the multiplication loop 

LDA #0 

BEQ :FHSLpBt ; branch always 

* multiply :Width by relative row using repeated additions 
:FHSLpTp CLC 

ADC :Width ; add another width to sum 

* bottom of the multiplication loop 

:FHSLpBt DEX ; down the loop counter 

BPL tFHSLpTp ; back up if not finished 

* at this point, A- register holds 

* ... ( :EdCrsVt - :Top ) * :Width 

* let ' s park it for a moment . . . 

STA : Temp 2 

* okay, now we'll figure relative column 

* figure what relative column we're in with the formula 

* ... :EdCrsHz - :Left 

SEC ; standard subtraction 

LDA :EdCrsHz 
SBC :Left 

* now, add that offset to our earlier result 

* ... and we ' re done 

CLC ? prep to add 

ADC : Temp 2 ; add 

STA :HotSpot ; store the result 

* return from :FigHotSpot 

RTS 
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05CA: 48 



05CB: 
05CD: 



05D0: 
05D3: 
05D5: 



A2 FC 
8E B9 



AC FE 
A2 01 
20 77 



05D8: 20 99 



05DB: 
05DC: 

05DF: 

05E2: 



68 
AE FB 

AC FA 

20 28 



05E5: 20 A8 



05E8: 60 



>518 
>519 
>520 
>521 
>522 
>523 
>524 
>525 
>526 
>527 
>528 
>529 
>530 
>531 
>532 
>533 
>534 
>535 
>536 
>537 
>538 
>539 
>540 
>541 

02 >542 
>543 
>544 
>545 

06 >546 
>547 

FF >548 
>549 
>550 

05 >551 
>552 
>553 
>554 

06 >555 
>556 

06 >557 
>558 

07 >559 
>560 
>561 
>562 

06 >563 
>564 
>565 
>566 
>567 
>568 
>569 
>570 
>571 
>572 
>573 
>574 
>575 
>576 
>577 
>578 
>579 
>580 
>581 
>582 



* :OveRite * 

* overwrites a printable character 

* puts it into the exit string 

* draws it on the screen 

* erases the cursor 

* moves the cursor one string position to the right 

* upon entry, the character's C-ASCII code is in 

* ... the A- register 

* upon exit, all registers trashed 
: OveRite 

* save a copy of the character 

PHA 

* let's add the character to the exit string 

* set a pointer to the exit string pointer for 

* ... inter-bank storage 

LDX #OurPtr2 
STX StaVec 

* add the character to the exit string 

* remember, the character's sitting in the A- register 

LDY : Hot Spot ; get index into string 
LDX #1 ; indicate Bank 1 

JSR IndSta ; store the character 

* erase cursor at current cursor position 

JSR :InvertCursor 

* draw the new character at current cursor position 



PLA 
LDX 

LDY 



:EdCrsVt 
:EdCrsHz 



JSR DrawBHChar 



get the character back 
X- holds a vertical 
... coordinate (row) 
Y- holds a horizontal 
... coordinate (column) 
call char drawing routine 



* move cursor location to the right, dealing 

* ... with any necessary wraparound issues 

JSR :CursRit 

* return from : OveRite 

RTS 



* :Insert * 

* deal with a press of the insertion key 

* moves all characters from the hotspot thru to the 

* ... next-to-last character one position to the right 

* . . . ( the last character gets bumped into its next 

* ... existence ) 

* puts a space character at the hotspot 

* upon exit, all registers trashed 
: Insert 
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>583 






>584 






>585 


05E9: 


A9 FC 


>586 


05EB: 


8D B9 


02 >587 
>588 
>589 
>590 
>591 
>592 
>593 
>594 


05EE: 


AC FD 


06 >595 
>596 
>597 


05F1: 


DO OE 


>598 
>599 
>600 


05F3: 


88 


>601 
>602 


05F4: 


A9 FC 


>603 


05F6: 


A2 01 


>604 


05F8: 


20 74 


FF >605 
>606 


05FB: 


A2 01 


>607 


05FD: 


C8 


>608 


05FE: 


20 77 


FF >609 
>610 
>611 


0601: 


88 


>612 


0602: 


CC FE 


06 >613 


0605: 


DO EC 


>614 
>615 
>616 
>617 


0607: 


A9 20 


>618 


0609: 


AC FE 


06 >619 


060C: 


A2 01 


>620 


060E: 


20 77 


FF >621 
>622 
>623 
>624 


0611: 


AD FE 


06 >625 
>626 


0614: 


AE FD 


06 >627 


0617: 


CA 


>628 


0618: 


20 5B 


06 >629 
>630 
>631 
>632 


061B: 


20 99 


05 >633 
>634 
>635 


061E: 


60 


>636 
518 
519 
521 
522 
523 

>1 

>2 

>3 

>4 

>5 

>6 



* set a pointer to the exit string pointer for 

* ... inter-bank storage 

LDA #OurPtr2 
STA StaVec 

:SlideRite 

* make room for the insertion by sliding all the characters 

* ... from :TheSpot thru to the next-to-last char 

* ... one position to the right 

* initialize for the loop 

LDY : Length 



we'll start at string end 



* enter the slide loop at the bottom 

BNE : SRBotm 

* slide an exit string character to the right 
:SRTop DEY } point to target 



LDA 
LDX 
JSR 



#OurPtr2 

#$01 

IndFet 

#$01 



LDX 
INY 
JSR IndSta 



point to our pointer 
indicate Bank 1 
grab a char 

indicate Bank 1 

move one position right 

store the char 



* bottom of the :SlideRite loop 

: SRBotm DEY » down the index 

CPY :HotSpot ; are we done sliding ? 
BNE :SRTop ; no, so back to loop top 

* okay, we've slid stuff over to make room, so now 

* ... we can add a spacey character to the string 

LDA #SpaceCAC j get that character code 

LDY :HotSpot ; get index into string 

LDX #1 ; indicate Bank 1 

JSR IndSta ; store the character 

* let's redraw the exit string from the hotspot thru 

* ... to the end of the string 



LDA 


:HotSpot 


set up A- reg. to index 
... the hotspot 


LDX 


: Length 


set up X- reg. to index 


DEX 




. . . the last char 


JSR 


:DrwStrSec 


; go draw that section of 
; ... the exit string 



* erase cursor at current cursor position 

JSR :InvertCursor 

* return from : Insert 

RTS 

TTL "S/M ASM 1 C.S" 
* Here Comes The Third Source File 



PUT 



"S/M ASM 1 C.S" 



* :Delete * 

* deal with a press of the deletion key 
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>7 








>8 








>9 








>10 








>11 








>12 








>13 








>14 








>15 








>16 








>17 








>18 








>19 








>20 








>21 


061F: 


A9 FC 




>22 


0621: 


8D B9 


02 


>23 
>24 
>25 


0624: 


20 99 


05 


>26 
>27 
>28 
>29 
>30 
>31 
>32 


0627: 


AC FE 


06 


>33 
>34 
>35 


062A: 


F0 2E 




>36 
>37 
>38 
>39 

>40 


062C: 


A9 FC 




>41 


062E: 


A2 01 




>42 


0630: 


20 74 


FF 


>43 
>44 


0633: 


A2 01 




>45 


0635: 


88 




>46 


0636: 


20 77 


FF 


>47 
>48 


0639: 


C8 




>49 


063A: 


C8 




>50 
>51 


063B: 


CC FD 


06 


>52 


063E: 


DO EC 




>53 
>54 
>55 
>56 


0640: 


A9 20 




>57 


0642: 


AC FD 


06 


>58 


0645: 


88 




>59 


0646: 


A2 01 




>60 


0648: 


20 77 


FF 


>61 
>62 
>63 
>64 


064B: 


AE FE 


06 


>65 

>66 


064E: 


CA 




>67 


064F: 


8A 




>68 


0650: 


AE FD 


06 


>69 


0653: 


CA 




>70 


0654: 


20 5B 


06 


>71 



* moves all characters from the hotspot thru to the 

* ... last character one position to the left 

* . . . ( the character to the left of the hotspot gets 

* ... bumped into its next existence ) 

* puts a space character at the last character 

* moves cursor one spot to left 

* upon exit, all registers trashed 
: Delete 

* set a pointer to the exit string pointer for 

* ... inter-bank storage 

LDA #OurPtr2 
STA StaVec 

* erase cursor at current cursor position 

JSR :InvertCursor 

:SlldeLeft 

* perform a deletion by sliding all the characters from 

* ... :TheSpot thru to last char one position to the left 

* initialize for the loop 

LDY : HotSpot ; 

* check for the no-no case 

BEQ : DBye ; 



we'll start at the hotspot 



if hotspot is at position 
... we ' ve got nothing to delete 



* the top of the sliding loop 

* slide an exit string character to the left 
:SLTop LDA #OurPtr2 j point to our pointer 

LDX #$01 ; indicate Bank 1 
JSR IndFet ; grab a char 



LDX #$01 

DEY 

JSR IndSta 



indicate Bank 1 

move one position left 

store the char 



INY ; move back to target 

INY ; move on to next target 

* bottom of the :SlideLeft loop 

:SLBotm CPY :Length ; are we done sliding ? 

BNE :SLTop ; no, so back to loop top 

* okay, we've slid stuff over to make room, so now 

* ... we can add a spacey character to the string 

LDA #SpaceCAC ; get that character code 

LDY : Length ; get index into string 

DEY 

LDX #1 ; indicate Bank 1 

JSR IndSta ; store the character 

* let's redraw the exit string from the hotspot-1 thru 

* ... to the end of the string 



LDX 

DEX 
TXA 
LDX 
DEX 
JSR 



:HotSpot ; set up A- reg. to index 
... the hotspot-1 



: Length ; set up X- reg. to index 

; ... the last char 
:DrwStrSec ; go draw that section of 
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0657: 20 BC 06 



065A: 60 



065B: 
065E: 
065F: 



0662: 
0665: 
0668: 



066B: 

066E: 



8D F8 06 

E8 

8E T9 06 



20 71 06 
EE F8 06 
AD F8 06 



CD F9 06 
90 F2 



0670: 60 



0671 : A8 



0672: A2 00 



72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 
91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 



; ... the exit string 

* move cursor to the left, dealing with wraparound 

JSR :CursLft 

:DBye 

* return from : Delete 

RTS 



* :DrwStrSec 



* draws a section of the exit string in its rectangle 

* ... on the bit-map screen 

* upon entry, A- indexes the first char of the section 

* X- indexes the last char of the section 

* upon exit, all registers are trashed 



:DrwStrSec 

* save the entry parameters 



STA 
INX 
STX 



: Tempi 
: Temp2 



we'll use this as an index 
we'll use this as a stop value 
... so we up it for easitude 



:DSSDoIt 

* go draw a character 

JSR :DrwStrChr 

* up the index 

INC : Tempi 

* grab the index 

LDA : Tempi 

* are we done yet ? 

CMP :Temp2 
BCC :DSSDoIt 

* return from :DrwStrSec 

RTS 



; at stop value yet ? 
; if not, draw again 



:DrwStrChr 



* draw a character from the exit string on the 

* ... bit-map screen 

* upon entry, A- holds the character's 0-based 

* ... position in the string [ 0. .stringLength-1 ] 

* upon exit, all registers trashed 
: DrwStrChr 

* store a copy of the character's position in Y- register 

* ... for upcoming IndFet call 

TAY 

* we need to figure absolute row and column of char 
» first, figure the relative row 

* starting assumption : row 

LDX #0 



256 



0674: 
0675: 
0678: 
067A: 
067B: 



067D: 
067E: 



0681: 
0682: 
0685: 



0688: 
0689: 
068A: 
068D: 



0690: 
0693: 
0695: 



0697: 
0699: 
069B: 



069E: 
06A1: 
06A4: 



06A8: 
06AB: 



38 

ED F7 
90 03 
E8 
BO F8 



18 
6D F7 



18 

6D F5 
8D 00 



18 
8A 

6D F3 
8D FF 



CD F4 
90 02 
DO 10 



A9 FC 
A2 01 
20 74 



AE FF 
AC 00 
20 28 



06A7: 60 



AE FA 
EC F6 



06AE: DO 07 



>137 
>138 
>139 

06 >140 
>141 
>142 
>143 
>144 
>145 
>146 
>147 
>148 

06 >149 
>150 
>151 
>152 

06 >153 

07 >154 
>155 
>156 
>157 
>158 

06 >159 

06 >160 
>1 61 
>162 
>163 

06 >164 
>165 
>166 
>167 
>168 
>169 
>170 
>171 
>172 

FF >173 
>174 
>175 
>176 

06 >177 

07 >178 
07 >179 

>180 
>181 
>182 
>183 
>184 
>185 
>186 
>187 
>188 
>189 
>190 
>1 91 
>192 
>193 
>194 
>195 
06 >196 
06 >197 
>198 
>199 
>200 
>201 



* we'll do some repeated subtraction 

* A- register holds index to first char 

SEC 
:Dscsub SBC : width 

BCC :GotRRow 

INX 

BCS :DSCSub 



prep to subtract 
takeaway a width 
if below 0, branch 
up the row 
subtract again 



tGotRRow 

* we've got the relative row, 

* ... so now figure the relative column 

CLC ; just add back a width 

ADC : Width 

* make that an absolute column and store it 

CLC 

ADC :Left 

STA :AbsCol 

* make relative row into absolute row and store it 

CLC 

TXA 

ADC :Top 

STA :AbsRow 

* make sure that the indexed character will fit into 

* ... our rectangle by checking the absolute row 

CMP :Bottom ; can't be greater than this 
BCC :DSCFetch ; less than : Bottom is okay 
BNE :DSCBye ; greater than : Bottom isn't 
; equal to : Bottom is 

:DSCFetch 

* now fetch the charater from RAM 1 

LDA #OurPtr2 
LDX #$01 
JSR IndFet 



point to zero-page pointer 
indicate Bank 1 
grab a byte of entry string 
byte comes back in A- register 



* draw that character on the bit-map screen 
LDX :AbsRow 
LDY :AbsCol 
JSR DrawBMChar 



: DSCBye 
* return from 
RTS 



:DrwStrChr 



* :CursRit * 

* move the cursor to the right, dealing with wraparound 

* upon exit, X- register is trashed 
:CursRit 

* check current cursor horizontal position to see if 

* ... we'll need to deal with wraparound 



LDX 
CPX 



BNE 



:EdCrsHz 
: Right 



:RtUpHz 



get current cursor horizontal 
do we need to wraparound to 
. . . the editing rectangle ' s 
. . . leftmost column ? 
no, so life is easy 
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>202 






>203 






>204 


06B0: 


20 DO 


06 >205 
>206 
>207 
>208 


06B3: 


AE F5 


06 >209 


06B6: 


CA 


>210 
>211 
>212 
>213 


06B7: 


E8 


>214 


06B8: 


8E FA 


06 >215 
>216 
>217 


06BB: 


60 


>218 
>219 
>220 
>221 
>222 
>223 
>224 
>225 
>226 
>227 
>228 
>229 
>230 


06BC: 


AE FA 


06 >231 


06BF: 


EC F5 


06 >232 
>233 
>234 


06C2: 


DO 07 


>235 
>236 
>237 
>238 
>239 


06C4: 


20 E1 


06 >240 
>241 
>242 
>243 


06C7: 


AE F6 


06 >244 


06CA: 


E8 


>245 
>246 
>247 
>248 


06CB: 


CA 


>249 


06CC: 


8E FA 


06 >250 
>251 
>252 


06CF: 


60 


>253 
>254 
>255 
>256 
>257 
>258 
>259 
>260 
>261 
>262 
>263 
>264 


06D0: 


AE FB 


06 >265 


06D3: 


EC F4 


06 >266 



* we need to wrap around horizontally 

* that means we also have to move down the screen, 

* ... which is done by upping the vertical coordinate 

JSR :CursDwn 

* now let's horizontally wrap around to the 

* ... leftmost column 

LDX :Left 

DEX ; so we can slide thru 

; ... the next instruction 

* move to the right by upping the horizontal coordinate 
:RtOpHz INX 

STX :EdCrsHz ; store new cursor horizontal 

* return from :CursRit 

RTS 



* :CursLft * 

* move the cursor to the left, dealing with wraparound 

* upon exit, X- register is trashed 
:CursLft 

* check current cursor horizontal position to see if 

* ... we'll need to deal with wraparound 



LDX 
CPX 



BNE 



:EdCrsHz 
:Left 



:LftDnHz 



get current cursor horizontal 
do we need to wraparound to 
. . . the editing rectangle ' s 
. . . rightmost column ? 
no, so life is easy 



* we need to wrap around horizontally 

* that means we also have to move up the screen, 

* ... which is done by downing the vertical coordinate 

JSR :CursUp 

* now let's horizontally wrap around to the 

* ... rightmost column 

LDX : Right 

INX ; so we can slide thru 

; ... the next instruction 

* move to the left by downing the horizontal coordinate 
:LftDnHz DEX 

STX :EdCrsHz ; store new cursor horizontal 

* return from :CursLft 

RTS 



* :CursDwn * 

* move the cursor down a line, dealing with wraparound 

* upon exit, X- register is trashed 

:CursDwn 

* check current cursor vertical to see if we'll have to 

* ... deal with wraparound 

LDX :EdCrsVt ; get current cursor vertical 
CPX :Bottom ; at bottom of rectangle ? 
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06D6: DO 04 



06D8: 
06DB: 



06DC: 
06DD: 



06E1: 
06E4: 
06E7: 



06E9: 
06EC: 



06ED: 
06EE: 



06F3: 
06F4: 
06F5: 
06F6: 
06F7: 
06F8: 
06F9: 
06FA: 



06FC: 
06FD: 



AE F3 
CA 



E8 
8E FB 



06E0: 60 



AE FB 
EC F3 
DO 04 



AE F4 
E8 



CA 
8E FB 



06F1 : 60 



06F2: 00 



00 
00 
00 
00 
00 
00 
00 
00 



06FB: 00 



00 
00 



06FE: 00 



>267 
>268 
>269 
06 >270 
>271 
>272 
>273 
>274 
>275 
>276 
>277 
06 >278 
>279 
>280 
>281 
>282 
>283 
>284 
>285 
>286 
>287 
>288 
>289 
>290 
>291 
>292 
>293 
06 >294 
06 >295 
>296 
>297 
>298 
06 >299 
>300 
>301 
>302 
>303 
>304 
>305 
>306 
06 >307 
>308 
>309 
>310 
>311 
>312 
>313 
>314 
>315 
>316 
>317 
>318 
>319 
>320 
>321 
>322 
>323 
>324 
>325 
>326 
>327 
>328 
>329 
>330 
>331 



BNE :CDUpIt ; no, so no need to wrap 

* we need to vertically wrap up to the topmost row 

LDX :Top 

DEX ; so we can slide thru 

; ... the next instruction 

:CDUplt 

* move down the screen by upping the vertical coordinate 

INX ; up, down, it's all so 

; ... confusing, eh ? 
STX :EdCrsVt ; store new cursor vertical 

* return from :CursDwn 

RTS 



* :CursUp * 

* move the cursor up a line, dealing with wraparound 

* upon exit, X- register is trashed 
: CursUp 

* check current cursor vertical to see if we'll have to 

* ... deal with wraparound 

LDX :EdCrsVt ; get current cursor vertical 
CPX :Top ; at top of rectangle ? 
BNE :CUUpIt ; no, so no need to wrap 

* we need to vertically wrap to the bottommost row 

LDX : Bottom 

INX ; so we can slide thru 

; ... the next instruction 

:CUUplt 

* move up the screen by downing the vertical coordinate 

DEX ; up, down, it's all so 

; ... confusing, eh ? 
STX :EdCrsVt ; store new cursor vertical 



* return from : CursUp 
RTS 



* local variables 

:FuncFlag DS 1 



: Top DS 
: Bottom DS 
:Left 
: Right 
: Width 
: Tempi 
: Temp 2 



DS 
DS 
DS 
DS 
DS 



:EdCrsHz DS 

:EdCrsVt DS 

:InCrsPs DS 

: Length DS 

:HotSpot DS 



saved Y- register function 

. . . selector 

topmost row of edit rectangle 

bottommost row of edit rect. 

leftmost row of edit rect. 

rightmost row of edit rect. 

width of edit rectangle 

general -purpose temporary 

a cosmic trash bucket 

editing cursor horizontal 

. . . position 

editing cursor vertical 

. . . position 

editing cursor initial position 

length of the string we're 

. . . editing 

character position in the exit 
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06FF: 
0700: 



00 
00 



0701: 00 



0702: 
0703: 



00 
00 



0704: 
0706: 
0708: 
070A: 
070C: 
070E: 

0710: 
0712: 

0714: 

0716: 

0718: 
071A: 

071C: 
071E: 

0720: 
0722: 
0724: 
0726: 



FB 00 
FA 00 
FD 00 
FC 00 
F8 06 
F3 06 

F8 06 
F4 06 

F8 06 

F5 06 

F8 06 

F6 06 

F8 06 

01 07 

03 07 

02 07 
F8 06 
FC 06 



0728: 
072B: 
072E: 



8D AC 
8E AD 
8C AE 



0731: 20 B2 



>332 
>333 
>334 
>335 
>336 
>337 
>338 
>339 
>340 
>341 
>342 
>343 
>344 
>345 
>346 
>347 
>348 
>349 
>350 
>351 
>352 
>353 
>354 
>355 
>356 
>357 
>358 
>359 
>360 
>361 
>362 
>363 
>364 
>365 
>366 
>367 
>368 
>369 
>370 
>371 
>372 
>373 
>374 
>375 
>376 
>377 
>378 
>379 
>380 
>381 
>382 
>383 
>384 
>385 
>386 
>387 
>388 
>389 
07 >390 
07 >391 
07 >392 
>393 
>394 
07 >395 
>396 



:AbsRow DS 
:AbsCol DS 

:AreaID DS 



: ArDtLo DS 
:ArDtHi DS 



. . . string that the cursor is 

. . . currently at 

... [0. .:Length-1 ] 

an absolute screen row 0..24 

an absolute screen column 

... 0..39 

area identification number for 

. . . the editing rectangle 

... ( if not applicable ) 

lo-byte of address of area 

. . . data table 

hi-byte of address of area 

. . . data table 



* local tables 



* this table tells the parameter block unpacking routine 

* ... where to store the various pieces of entry info 



:WherTab DA 
DA 

DA 
DA 
DA 
DA 

DA 
DA 

DA 
DA 

DA 
DA 

DA 
DA 

DA 
DA 
DA 
DA 



OurPtr1+1 

OurPtrl 

0urPtr2+1 

OurPtr2 

: Tempi 

:Top 

: Tempi 
: Bottom 

: Tempi 
:Left 

: Tempi 
: Right 

: Tempi 
:AreaID 

:ArDtHi 
: ArDtLo 
: Tempi 
:lnCrsPs 



where we store pointer to 
. . . entry string record 
where we store pointer to 
. . . exit string record 
throw away a filler byte 
where we store topmost 
. . . row of editing rect . 
throw away a filler byte 
where we store bottommost 
... row of editing rect. 
throw away a filler byte 
where we store leftmost 
... row of editing rect. 
throw away a filler byte 
where we store rightmost 
... row of editing rect. 
throw away a filler byte 
where we store the rectangle ' s 
. . . area ID 

where we store pointer to 
. . . area data table 
throw away a filler byte 
where we store editing cursor 
. . . initial position 



* DrawBMChar * 

* draws a character on the standard hi -res bit-map screen 

* upon entry, A- reg. holds the character's C-ASCII code 

* X- reg. holds the row [0..24] 

* Y- reg. holds the column [0..39] 

* all registers are preserved 

DrawBMChar 

* save some registers 

STA : TheCode 
STX : TheRow 
STY :TheColumn 

* transform C-ASCII code into a set 1 poke code 

JSR CAsc2Pok1 
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0734: A2 00 
0736: 8E AF 07 



0739: A2 03 
073B: 0A 



073C: 
073F: 
0740: 



2E AF 07 

CA 

DO F9 



0742: 
0743: 
0745: 
0747: 
074A: 
074C: 



18 

69 00 
85 FA 
AD AF 
69 DO 
85 FB 



07 



074E: A9 00 
0750: 8D BO 07 



0753: 
0756: 
0758: 
0759: 
075C: 



AD AD 07 

A2 06 

OA 

2E BO 07 

CA 



075D: DO F9 



075F: 
0760: 
0762: 
0764: 
0767: 



18 

69 00 
85 CA 
AD BO 07 
69 20 



0769: 18 
076A: 6D AD 07 
07 6D: 85 CB 



076F: A9 00 
0771 : 8D B1 07 



0774: 
0777: 
0779: 



AD AE 07 
A2 03 

OA 



>397 
>398 
>399 
>400 
>401 
>402 
>403 
>404 
>405 
>406 
>407 
>408 
>409 
>410 
>411 
>412 
>413 
>414 
>415 
>416 
>417 
>418 
>419 
>420 
>421 
>422 
>423 
>424 
>425 
>426 
>427 
>428 
>429 
>430 
>431 
>432 
>433 
>434 
>435 
>436 
>437 
>438 
>439 
>440 
>441 
>442 
>443 
>444 
>445 
>446 
>447 
>448 
>449 
>450 
>451 
>452 
>453 
>454 
>455 
>456 
>457 
>458 
>459 
>460 
>461 
>462 



* initialize character ROM offset hi-byte to 

LDX #0 

STX :ROMOffHi 

* multiply poke code by 8 to get character ROM offset 



LDX 

:LoopOne ASL 

ROL 

DEX 

BNE 



#3 

:ROMOffHi 
: LoopOne 



we'll do three left shifts 

each shift cycle multiplies 

... by 2 

another 2-mult. done 

go until finished 



* by the way, A- register now holds character ROM 

* ... offset lo-byte 

* now, add that 16-bit offset to the ROM's base address 

* ... and store as a pointer 

CLC ; straight-forward 16-bit 

ADC /jKCharRom ; ... addition 

STA OurPtrl 

LDA :ROMOffHi 

ADC (JI>CharRom 

STA OurPtrl +1 

* we need to figure out where in bit-map memory this 

* ... character's eight data bytes will go 

* initialize hi-byte of row-caused offset to 

LDA #0 

STA :RowOffHi 

* grab row & multiply by the # of bytes in a row : 320 

* that's equivalent to multiplying by 64 and 256, then 

* ... adding the results 

* so, we'll start by multiplying by 64 via 6 left shifts 



LDA 
LDX 
:LoopTwo ASL 
ROL 
DEX 
BNE 



: TheRow 
#6 



:RowOffHi 
: LoopTwo 
♦ lo-byte of : TheRow * 64 is in the A- register 



grab the row 

we'll do six left shifts 

each shift cycle multiplies 

... by 2 

another 2-mult. done 

go until finished 



* now, some heavy adding 

* start by adding that 64 * :TheRow to the bit-map base 

CLC ; standard addition 

ADC #<BMBase 

STA OurPtr4 

LDA :RowOffHi 

ADC #>BMBase ; don't store that hi-byte yet 

* now, add 256 * : TheRow 

* ( cheap trick : just pretend it's a hi-byte ) 

CLC 

ADC : TheRow 

STA OurPtr4+1 ; okay, store hi-byte 

* now, multiply the column by 8 

* initialize hi-byte of column-caused offset to 

LDA #0 

STA :ColOffHi 

* another shifty little multiplication 

LDA :TheColumn ; grab the column 
LDX #3 ; we'll do three left shifts 
:Loop3 ASL : each shift cycle multiplies 
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077A: 
077D: 
077E: 



0780: 
0781 : 
0783: 
0785: 
0788: 
078A: 



078C: 
078F: 

0790: 
0792: 



0795: 
0797: 
0799: 
079B: 
079C: 



079E: 
079F: 



07A2: 
07A5: 
07A8: 



2E B1 07 

CA 

DO F9 



18 

65 CA 
85 CA 
AD B1 
65 CB 
85 CB 



07 



AD 00 FF 
48 

A9 01 
8D 00 FF 



AO 07 
B1 FA 
91 CA 
88 

10 F9 



68 

8D 00 FF 



AC AE 07 
AE AD 07 
AD AC 07 



07AB: 60 



07AC: 00 

07AD: 00 

07AE: 00 

07AF: 00 

07B0: 00 

07B1: 00 



>463 
>464 
>465 
>466 
>467 
>468 
>469 
>470 
>471 
>472 
>473 
>474 
>475 
>476 
>477 
>478 
>479 
>480 
>481 
>482 
>483 
>484 
>485 
>486 
>487 
>488 
>489 
>490 
>491 
>492 
>493 
>494 
>495 
>496 
>497 
>498 
>499 
>500 
>501 
>502 
>503 
>504 
>505 
>506 
>507 
>508 
>509 
>510 
>511 
>512 
>513 
>514 
>515 
>516 
>517 
>518 
>519 
>520 
>521 
>522 
>523 
>524 
>525 
>526 
>527 



ROL 


:ColOffHi 


; ... by 2 


DEX 




; another 2-mult. done 


BNE 


: Loop 3 


; go until finished 


nally 


, add that 


in 


CLC 






ADC 


OurPtr4 




STA 


OurPtr4 




LDA 


:ColOffHi 




ADC 


OurPtr4+1 




STA 


OurPtr4+1 





* set memory configuration so we can talk to the 

* ... character ROM and the standard bit-map screen 

LDA MmuCR ; save current configuration 
PHA ; ... on the stack 

LDA #Bank14 ; that'll do the trick 
STA MmuCR ; configured I 

* transfer those eight bytes 

LDY #7 ; our counter/index 

:Loop4 LDA (OurPtr1),Y; grab character ROM byte 

STA (OurPtr4),Y; store in bit-map 
DEY ; down the counter/ index 

BPL :Loop4 ; branch until finished 



* restore memory configuration 



PLA 
STA 



we parked it there 



MmuCR 



* restore some registers and leave 
LDY :TheColumn 
LDX : TheRow 
LDA : TheCode 



RTS 



return from DrawBMChar 



local variables * 



: TheCode DS 
: TheRow DS 
:TheColumn DS 
:ROMOffHi DS 
:RowOffHi DS 
:ColOffHi DS 



the character's C-ASCII code 
the row it'll go in 
the column it ' 11 go in 
hi-byte of char. ROM offset 
hi-byte of row-caused offset 
hi-byte of column-caused offset 



* CAsc2Pok1 * 

* transform Commodore ASCII code to Set 1 screen poke code 

* obviously, this would be faster with a 256-byte table, 

* ... but we ' re a bit squeezed for space — this code only 

* ... eats up 50 bytes, and ain't all THAT slow 

* upon entry, A- reg. holds a C-ASCII code [0..255] 

* upon exit, A- reg. holds a poke code [0..255] 

* X- and Y- registers are preserved 

CAsc2Pok1 

* C-ASCIIs 0..31 transform to pocode 32 
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07B2: 


C9 


20 


>528 


:Test1 


CMP 


#32 


; test for 0..31 


07B4: 


BO 


03 


>529 
>530 




BCS 


.•Test 2 


; not in range, do next test 


07B6: 


A9 


20 


>531 




LDA 


#32 


; in range, so return 32 


07B8: 


60 




>532 
>533 




RTS 




; outta here 








>534 


* C-ASCIIs 32. 


.63 transform to pocodes 32.. 63 


07B9: 


C9 


40 


>535 


:Test2 


CMP 


#64 


; test for 32.. 63 


07BB: 


BO 


01 


>536 
>537 




BCS 


:Test3 


; not in range, do next test 


07BD: 


60 




>538 
>539 




RTS 




; in range, so return as is 








>540 


* C-ASCIIs 64. 


.95 transform to pocodes 0..31 


07BE: 


C9 


60 


>541 


:Test3 


CMP 


#96 


; test for 64.. 95 


07C0: 


BO 


03 


>542 
>543 




BCS 


:Test4 


; not in range, do next test 


07C2: 


E9 


3F 


>544 
>545 
>546 
>547 
>548 




SBC 


#63 


; in range, transform 64.. 95 
; ... to 0..31 by subtacting 64 
; . . . (a clear Carry lets us 
; ... skip a SEC step if we 
; ... just subtract 63 ) 


07C4: 


60 




>549 
>550 




RTS 




; bye bye 








>551 


* C-ASCIIs 96. 


.127 transform to pocodes 6 4.. 9 5 


07C5: 


C9 


80 


>552 


: Test 4 


CMP 


#128 


; test for 96.. 127 


07C7: 


BO 


03 


>553 
>554 




BCS 


: Test5 


; not in range, do next test 


07C9: 


E9 


1F 


>555 
>556 
>557 
>558 
>559 




SBC 


#31 


; in range, transform 96.. 127 to 
; ... 64.. 95 by subtacting 32 
; . . . (a clear Carry lets us 
; ... skip a SEC step if we 
; ... just subtract 31 ) 


07CB: 


60 




>560 
>561 




RTS 




; bye bye 








>562 


* C-ASCIIs 128 


..159 transform to pocode 32 


07CC: 


C9 


AO 


>563 


:Test5 


CMP 


#160 


; test for 128.. 159 


07CE: 


BO 


03 


>564 
>565 




BCS 


: Test 6 


; not in range, do next test 


07D0: 


A9 


20 


>566 




LDA 


#32 


; in range, so return 32 


07D2: 


60 




>567 
>568 




RTS 




j bye bye 








>569 


* C-ASCIIs 160 


,.191 transform to pocodes 96.. 127 


07D3: 


C9 


CO 


>570 


: Teste 


CMP 


#192 


; test for 160.. 191 


07D5: 


BO 


03 


>571 
>572 




BCS 


:Test7 


; not in range, do next test 


07D7: 


E9 


3F 


>573 
>574 
>575 
>576 
>577 




SBC 


#63 


; in range, transform 160.. 191 
; ... to 96.. 127 by subtacting 64 
; . . . (a clear Carry lets us 
; ... skip a SEC step if we 
; ... just subtract 63 ) 


07D9: 


60 




>578 
>579 




RTS 




f bye bye 








>580 


* C-ASCIIs 192 


.223 transform to pocodes 64.. 95 








>581 


* C-ASCIIs 224 


..254 transform to pocodes 96.. 126 








>582 


* ( noti 


ce that both ranges transform down by 128 ) 


07DA: 


C9 


FF 


>583 
>584 
>585 


:Test7 


CMP 


#255 


; test for only remaining value 
; ... that ' s not in one of these 
; ... ranges 


07DC: 


FO 


03 


>586 
>587 




BEQ 


:Final 


; got it, so go transform it 


07DE: 


E9 


7F 


>588 
>589 
>590 
>591 
>592 




SBC 


#127 


; in range, transform 192.. 223 
; ... to 64.. 95 and 224.. 255 to 
; ... 96.. 126 by subtracting 128 
; . . . ( a clear Carry lets us 
; ... skip a SEC step if we 
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>593 


07E0: 60 




>594 

>595 
>596 


07E1 : A9 


5E 


>597 


07E3: 60 




>598 



RTS 



... just subtract 127 ) 
git gone 



* C-ASCII 255 transforms to pocode 94 
:Final LDA #94 ; transform 255 to 94 
RTS 



that's all she wrote 



--End assembly, 996 bytes, Errors: 



1 

2 
3 








* 


* 






* 


4 


* 






* 


5 


* 




S/M ASM 2 


* 


6 


* 






* 


7 


* 






* 


8 


* 


Assembly language tools for the BASIC 7.0 program 


* 


9 


* 


• • • 


SOUND/MUSIC LAB. 


* 


10 


* 






* 


11 


t 


Sits in Bank HAM memory at $1300 - $1B17 


* 


12 


* 






* 


13 


* 


Divided into three source files : 


* 


14 


* 




S/M ASM 2 A.S 


* 


15 


* 




S/M ASM 2 B.S 


* 


16 


* 




S/M ASM 2 C.S 


* 


17 


* 






* 


18 


* 






* 


19 


* 


To 


install the helper : 


* 


20 


* 






* 


21 


* 




BLOAD "S/M ASM 2" 


* 


22 


* 




SYS 4864 


* 


23 


* 






* 


24 


* 






* 


25 


* 


To 


un-install the helper : 


* 


26 


* 






* 


27 


* 




SYS 4933 


* 


28 


* 






* 


29 


* 






* 


30 


* 


The pseudo-mouse button state record begins at 


* 


31 


* 


» • 


memory location 6757 


* 


32 


* 






* 


33 


* 






* 


34 


* 


To 


call the AreaSearch routine for the lab screen : 


* 


35 


* 






* 


36 


* 




SYS 5224, 47, 22 


* 


37 


* 






* 


38 


* 






* 


39 


* 


To 


call the AreaSearch routine for the help screen : 


* 


40 


* 






* 


41 


* 




SYS 5224, 15, 25 


* 


42 


* 






* 


43 


* 






* 


44 


* 


To 


call the HRRectlnvt routine for the lab screen : 


* 


45 


* 






* 


46 


* 




SYS 5318, 51, 25, arealD* 


* 


47 


* 






* 


48 


* 




where arealDiH is [1..105] 


* 


49 


* 






* 


50 


* 






* 


51 


* 


To 


call the HRBandlnvt routine : 


* 


52 


* 






* 


53 


* 




SYS 5394, width, row, startColun 


in * 



Fig. 16-2. Source code for S/M Asm 2. 
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54 


* 






* 


55 


* where 


width is 


M..39] 


* 


56 


* 


row is 


[0..24] 


* 


57 


* 


startColumn is 


[0..39] 


* 


58 


* 






* 


59 


* 








60 


* To call the TXBandlnvt routine : 


* 


61 


* 






* 


62 


* 


SYS 5459, width, row, startColumn 


* 


63 


* 






* 


64 


* where 


width is 


[1..39] 


* 


65 


* 


row is 


[0. .24] 


* 


66 


* 


startColumn is 


[0..39] 


* 


67 


* 






* 


68 


* 






* 


69 


* Version : 


1:00 




* 


70 


* Timestamp 


: 5:15 PM PST September 16, 1986 


* 


71 


* 






* 


72 


* Programmed by Stan Krute 




* 


73 


* Copyright 


(C) 1986 by Stan Krute 's Hacker & Nerd 


* 


74 


* 


18617 Camp Creek Road 


* 


75 


* 


Hornbrook, California 960 44 


* 


76 


* 


[916] 475-3428 


* 


77 


* All rights reserved 




* 


78 


* Call or write for bug reports, help, licensing, etc. 


* 


79 


* 






* 


80 


* 








81 










82 










83 


* 




£ 


84 










85 


* CIAs 








86 










87 


D1PrA 


$DC00 


J CIA # 1 port A 




88 


D1PrB 


$DC01 


; CIA # 1 port B 




89 


D2PrA 


$DD00 


; CIA # 2 port A 




90 


D2T1L 


$DD04 


; CIA # 2 timer A lo-byte 




91 


D2T1H 


$DD05 


( CIA # 2 timer A hi-byte 




92 


D2ICR s 


$DD0D 


; CIA # 2 interrupt control reg 




93 


D2CRA 


$DD0E 


; CIA # 2 control register A 




94 










95 










96 


* Commodore 


ASCII codes 






97 










98 


RtrnCAC = 


13 


• code for a carriage return 




99 










100 










101 


* joystick 








102 










103 


JoyDirMsk = 


%00001111 


• bit setup to mask in joystick 




104 






. . . direction switches 




105 


JoyBtnMsk = 


%00010000 


bit setup to mask in joystick 




106 






. . . button switch 




107 










108 










109 


* keyboard 








110 










111 


KeyD 


$034A 


, the keyboard buffer 




112 


Ndx 


$D0 


index to the keyboard buffer 




113 


K2Chek 


%11111011 


bit setup to test K2 line 




114 


UpCrsMsk = 


%011 11 000 


bit setup to mask in upper 




115 






. . . cursor keys 




116 


RtrnMsk = 


%00000010 


• bit setup to mask in return 




117 






• ... key 




118 
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119 








120 


* keycodes 




121 








122 


UpKyCd 


= 


83 


123 


DwnKyCd 


= 


84 


124 


LftKyCd 


= 


85 


125 


RitKyCd 


= 


86 


126 


RtrnKyCd 


= 


01 


127 








128 








129 


* low-memory system varii 


130 








131 


StaVec 


= 


$2B9 


132 








133 








134 








135 


* memory 


management 


136 








137 


MmuCR 


= 


$FF00 


138 


MmuRCR 


= 


$D506 


139 


Bankl 5 


= 


%00000000 


140 








141 








142 


* pseudo- 


-mouse 




143 








144 


NoClik 


= 





145 


Clik 


= 


1 


146 








147 








148 


* ROM routines 


- documen 


149 








150 


IndFet 


= 


$FF74 


151 


IndSta 


= 


$FF77 


152 








153 








154 


* screen 


area 


stuff 


155 








156 


AreaRcSz 


= 


7 


157 








158 








159 


* sprite 


stuff 




160 








161 


NoDir 


= 


255 


162 


Sp1 Speed 


= 


$11 7E 


163 


Sp1 MvRec 


= 


$11 7E 


164 








165 


MvRecSiz 


= 


7 


166 








167 


NoMotion 


= 





168 


YesMove 


= 


%1 0000000 


169 








170 


NoMove 


= 


%01 111111 


171 








172 








173 








174 


* vectors 






175 








176 


IIRQ 


= 


$0314 


177 


KeyChk 


= 


$033C 


178 








179 








180 


* VIC stuff 




181 








182 


VICSave 


= 


$11 D6 


183 


SplVrt 


= 


VICSave+1 


184 


SplHrzLo 


= 


VICSave 



the upper cursor -up key 
the upper cursor -down key 
the upper cursor -left key 
the upper cursor-right key 
the return key 



points to a zero-page pointer 
... for IndSta ROM Kernel call 



} configuration register 

; ram configuration register 

; configuration byte 



code for no click 
code for a click 



; fetch data from any bank 
; store data to any bank 



; size of an area record 



code for no directional info 

sprite #1 speed parameter 

start of sprite #1 motion 

. . . record 

size of sprite motion record 

. . . data that we set 

MoveFlag code for no motion 

MoveFlag mask for keyboard- 

... powered motion 

MoveFlag mask for no keyboard- 

. . . powered motion 



; IRQ interrupt routine 
; store a keypress 



location of VIC shadow regs. 
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1300: 78 



1301: 48 



1302: AD 3C 

1305: 8D OF 

1308: AD 3D 

130B: 8D 10 



03 
1B 
03 
1B 



130E: A9 62 

1310: 8D 3C 03 

1313: A9 13 

1315: 8D 3D 03 



1318: AD 14 03 
131B: 8D 11 1B 
131E: AD 15 03 
1321: 8D 12 1B 



1324: A9 82 
1326: 8D 14 03 
1329: A9 13 
132B: 8D 15 03 



185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 



SprHrzHi = 
SplHHMsk = 
VicReg24 = 
VicReg47 = 



VICSave+16 
%00000001 
$D018 
$D02F 



* zero-page variables 
OurPtr = $FA 



; a pointer we use 



* Macros 

* A nice pseudo-unconditional branch 



BRA 



MAC 
CLV 

BVC ]1 
< << 



ORG $1 300 



Set Program Origin * 

; for maximum area beneath 
; ... the bit map 



* Install 

* Installs the aids 

Install 

* disable interrupts 

SEI 



* save some registers 

PHA 

:Task1 

* install our KeyChk detour 

* save the current vector 

LDA KeyChk 

STA RegKeyChk ; we'll need it for jumping 

LDA KeyChk+1 ; ... and restoration 

STA RegKeyChk+1 

* vectorize to our routine 

LDA #<OurKeyChk; set the vector to its address 

STA KeyChk 

LDA #> Our KeyChk 

STA KeyChk+1 

:Task2 

* install our IIRQ detour 

* save the current vector 

LDA IIRQ 

STA RegllRQ 

LDA IIRQ+1 

STA RegIIRQ+1 



we'll need it for jumping 
... and restoration 



* vectorize to our routine 
LDA §< Our I IRQ ; 
STA IIRQ 
LDA #>OurIIRQ 
STA IIRQ+1 



set the vector to its address 
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250 

251 :Task3 

252 * initialize the sprite-in-motion flag 
132E: A9 00 253 LDA #NoMotion 

1330: 8D 13 1B 254 STA MoveFlag 

255 

256 :Task4 

257 * initialize the pseudo-mouse single/double click timer 

258 * turn off CIA #2 Timer A interrupt ability 
1333: A9 01 259 LDA #%00000001 

1335: 8D OD DD 260 STA D2ICR 

261 * set the latched value 
1338: A9 00 262 LDA #%0000000 

133A: 8D 04 DD 263 STA D2T1L 

133D: A9 FF 264 LDA #%11111111 

133F: 8D 05 DD 265 STA D2T1H 

266 

267 :Bye 

268 * restore some registers 
1342: 68 269 PLA 

270 

271 * enable interrupts 
1343: 58 272 CLI 

273 

274 * and leave 
1344: 60 275 RTS ; return from Install 

276 

277 

278 * Unlnstall * 

279 

280 * Un-installs the aids 

281 

282 Unlnstall 

283 * disable interrupts 
1345: 78 284 SEI 

285 

286 * save some registers 
1346: 48 287 PHA 

288 

289 :Task1 

290 * remove our IIRQ detour 

291 * just vectorize to the original routine 

1347: AD 11 1B 292 LDA RegllRQ ; set the vector to its address 

134A: 8D 14 03 293 STA IIRQ 

134D: AD 12 1B 294 LDA RegIIRQ+1 

1350: 8D 15 03 295 STA IIRQ+1 

296 

297 :Task2 

298 * remove our KeyChk detour 

299 * just vectorize to the original routine 

1353: AD OF 1B 300 LDA RegKeyChk ; set the vector to its address 

1356: 8D 3C 03 301 STA KeyChk 

1359: AD 10 1B 302 LDA RegKeyChk+1 

135C: 8D 3D 03 303 STA KeyChk+1 

304 

305 :Bye 

306 * restore some registers 
135F: 68 307 PLA 

308 

309 * enable interrupts 
1360: 58 310 CLI 

311 

312 * and leave 
1361: 60 313 RTS ; return from Install 

314 
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315 












316 


* 














317 












318 


* Looks for keycodes that represent the upper set of 








319 


* ... cursor 


keys, and keeps them from being put in buffer 








320 












321 


♦ Upon entry, 


Y- register holds the keycode of currently 








322 


* ... pressed 


key 








323 












324 


OurKeyChk 










325 


* save some registers 


1362: 


08 




326 


PHP 




1363: 


48 




327 
328 


PHA 










329 


* A- register 


will hold keycode in loop 


1364: 


98 




330 
331 


TYA 


; initialize with keycode 








332 


* run the screening tests 


1365: 


A0 


04 


333 
334 
335 


LDV 


#:End-:TstCodz-1 ; it'll count the loop & 
; ... index into the list 
; ... of test keycodes 


1367: 


D9 


7D 13 


336 
337 


:Test CMP 


:TstCodz,Y ; is keycode one of our 
; ... test codes ? 


136A: 


FO 


09 


338 


BEQ 


:Bye2 ; yup, so bag it 


136C: 


88 




339 
340 


:Next DEY 


; nope, so down the 
; ... loop counter 


136D: 


10 


F8 


341 
342 
343 


BPL 
:Bye 


:Test ; if more to do, loop up 








344 


* restore some registers 


136F: 


A8 




345 


TAY 




1370: 


68 




346 


PLA 




1371: 


28 




347 
348 


PLP 










349 


* slide into 


the regular KeyChk routine 


1372: 


6C 


OF 1B 


350 
351 
352 


JMP 
:Bye2 


(RegKeyChk) 








353 


* restore some registers 


1375: 


A8 




354 


TAY 




1376: 


68 




355 


PLA 




1377: 


A9 


00 


356 


LDA 


#0 ; this' 11 hide the keypress 


1379: 


28 




357 
358 


PLP 










359 


* slide into 


the regular KeyChk routine 


137A: 


6C 


OF 1B 


360 
361 
362 


JMP 


(RegKeyChk) 








363 


* local data 


: keycodes to test for 


137D: 


53 




364 


:TstCodz DFB 


OpKyCd 


137E: 


54 




365 


DFB 


DwnKyCd 


137F: 


55 




366 


DFB 


LftKyCd 


1380: 


56 




367 


DFB 


RitKyCd 


1381: 


01 




368 
369 
370 
371 
372 
373 


DFB 
:End 

* 


RtrnKyCd 


















374 


* Our detour 


to the system heartbeat 








375 












376 


* Looks for pseudo-mouse commands from the upper cursor 








377 


* ... keys, return key, and joystick 








378 












379 


* Controls the motion of sprite #1 , the pseudo-mouse 








380 


* ... cursor, 


based on what it finds 
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1382: 
1383: 
1384: 



1385: 
1388: 



1389: 
138B: 



138E 
1390 
1393 
1395 
1398 
139B 
139D 
139E 
139F 
13A0 
13A1 
13A4 



13A7: 
13AA: 
13 AC: 
13 AD: 



48 
8A 
48 



AD 00 FF 
48 



A9 00 
8D 00 FF 



A9 FF 

8D 00 DC 

A9 FB 

8D 2F DO 

AD 01 DC 

29 78 

4A 

4A 

4A 

AA 

BD 33 14 

8D 53 14 



AD 00 DC 

29 OF 

AA 

BD 33 14 



13B0: 8D 54 14 



13B3: C9 FF 

13B5: DO 03 

13B7: AD 53 14 

13BA: 8D 55 14 



13BD: 2C 13 1B 
13C0: 10 12 



13C2: CD 56 14 
13C5: FO 2D 



13C7: A9 00 



381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 



* See the text for somewhat intense pseudo-code logic 

OurllRQ 

* Save some registers 

PHA 
TXA 
PHA 

* save entry memory configuration 

LDA MmuCR ; go grab it 

PHA ; park it on the stack 

* set for Bank 15 memory configuration 
LDA #Bank1 5 ; the magic number 



STA MmuCR 



do it to it 



* let's check out the upper cursor keys 



LDA 
STA 
LDA 
STA 
LDA 
AND 
LSR 
LSR 
LSR 
TAX 
LDA 
STA 



#%11 111111 

DlPrA 

#K2Chek 

VicReg47 

D1PrB 

#UpCrsMsk 



:DirTab,X 
:CrsDir 



not interested in C0-C7 lines 

this bags them 

send signal on K2 line 

nice kludge, Commodore 

read the result 

mask out noise 

move bits into lo nibble 



; for table indexing 

; grab a cursor key code 

: and store it 



* let's check out the joystick direction switches 



* a clear bit indicates a 



LDA 
AND 
TAX 
LDA 

STA 



DlPrA 
#JoyDirMsk 

:DirTab,X 

:JoyDir 



switch that's been pressed 
grab joystick data 
mask out noise 
for table indexing 
grab a joystick direction 
. . . code 
and store it 



* now, let's arbitrate the directional information 

* if cursor keys AND joystick are giving a valid 

* ... direction, we'll let the joystick win 



CMP 

BNE 

LDA 

:StorArb STA 



lUNoDir 
: StorArb 
:CrsDir 
:ArbDir 



if joystick has something, 
use it 
else use cursor keys 



* are we currently moving sprite #1 ? 

BIT MoveFlag ; currently moving ? 
; (flagged by bit 7) 
BPL :NotMovin ; no, so jump on 

:Movin 

* sprite #1 is currently in motion 

* do we have a directional command to continue THAT 

* ... motion ? if so, we can jump ahead, and 

* ... if not, we'll stop the sprite 

CMP :MovDir ; do they match ? 

BEQ :ChekButn ; yes, so we can jump ahead 

:Stop 

* we get here if we need to stop key-controlled 

* ... sprite #1 motion 

LDA #NoMotion ; stop the motion 
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13C9: 8D 7E 11 446 STA Sp1 Speed 

13CC: AD 13 1B 447 LDA MoveFlag ; fix the flag 

13CP: 29 7P 448 AND #NoMove ; clears bit 7 

13D1: 8D 13 IB 449 STA MoveFlag 
450 

451 :NotMovin 

452 * we get here if the sprite isn't moving 

13D4: 2C 55 14 453 BIT :ArbDir ; was a direction specified 

13D7: 30 1B 454 BMI :ChekButn ; no, so we can jump ahead 
455 

456 * a directed motion WAS specified 

457 * use the code to grab motion data 

13D9: AE 55 14 458 LDX :ArbDir ; grab that code 

13DC: BD 43 14 459 LDA :MDLo,X j index into address tables 

13DP: 85 FA 460 STA OurPtr 

13E1: BD 4B 14 461 LDA :MDHi,X 

13E4: 85 FB 462 STA OurPtr+1 

463 

464 * go set sprite #1 into motion 

13E6: 20 57 14 465 JSR SetMoshn 

466 

467 * set MoveFlag and :MovDir appropriately 

13E9: AD 13 1B 468 LDA MoveFlag 

13EC: 09 80 469 ORA #YesMove 

13EE: 8D 13 1B 470 STA MoveFlag 

13P1: 8E 56 14 471 STX :MovDlr 

472 

473 :ChekButn 

474 * see if the joystick button is being pressed 

475 * a clear bit indicates a switch that's been pressed 
13F4: AD 00 DC 476 LDA D1PrA ; grab joystick data 
13F7: 29 10 477 AND #JoyBtnMsk ; isolate the button bit 
13F9: P0 11 478 BEQ .-GotClik ; pressed, so jump on 

479 

480 :ChekRtrn 

481 * see if the return key is being pressed 

482 * we check the hardware ourselves 

we're interested in CO line 



13FB: A9 PE 483 

13FD: 8D 00 DC 484 

1400: A9 FP 485 

1402: 8D 2F DO 486 

1405: AD 01 DC 487 

1408: 29 02 488 

140A: DO 18 489 



LDA 


#%1 1111110 


STA 


D1PrA 


LDA 


#%1 1111111 


STA 


VicReg47 


LDA 


D1PrB 


AND 


HfRtrnMsk 


BNE 


:NoClik 



this sends test out on it 
not interested in K0-K2 
this takes care of that 
read the result 
clear bit means pressed 
not pressed, so jump on 



490 

491 :GotClik 

492 * we get here if joystick or return key pressed 

493 * store current sprite # 1 position 
140C: AD D6 11 494 
140F: 8D 15 1B 495 
1412: AD E6 11 496 
1415: 29 01 497 
1417: 8D 16 1B 498 
141A: AD D7 11 499 
141D: 8D 17 1B 500 

501 

502 * grab click code and jump 
1420: A9 01 503 LDA #Clik ; it's a non-zero value 

1422: DO 02 504 BNE :StorClik 

505 

506 :NoClik 

507 * we get here if neither joystick nor return key pressed 
1424: A9 00 508 LDA #NoClik 

509 

510 :StorClik 



LDA 


SplHrzLo 


STA 


ClikHzLo 


LDA 


SprHrzHi 


AND 


lifSpl HHMsk 


STA 


ClikHzHi 


LDA 


SplVrt 


STA 


ClikVt 
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1426: 8D 14 1B 



1429: 
142A: 



142D: 
142E: 
142F: 



68 

8D 00 FF 



68 
AA 
68 



1430: 6C 11 1B 



1433: 
1436: 
1439: 
143C: 
143F: 
1442: 



1443 
1444 
1445 
1446 
1447 
1448 
1449 
144A 

144B 
144C 
144D 
144E 
144F 
1450 
1451 
1452 



1453: 
1454: 
1455: 



FF 04 00 

FF 02 03 

01 02 06 

05 07 06 

FF 04 00 
FF 



D7 
DE 
E5 
EC 
F3 
FA 
01 
08 

1A 
1A 
1A 
1A 
1A 
1A 
1B 
1B 



00 
00 
00 



1456: 00 



511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
573 
574 
575 
>1 



* store button state of click or no-click 

STA ButnStat 

:Bye 

* restore memory configuration 

PLA 

STA MmuCR 

* restore some registers and leave 

PLA 
TAX 
PLA 

JMP (RegllRQ) 



* local constant data 

* table for translating raw joystick and upper cursor 

* ... key data into a direction code 
:DirTab DFB 255,4,0 

DFB 255,2,3 

DFB 1,2,6 

DFB 5,7,6 

DFB 255,4,0 

DFB 255 

* tables for getting the address of a direction's 

* ... sprite motion data (lo and hi bytes) 
:MDLo DFB #< North 

DFB #<NorthEast 

DFB #<East 

DFB #<SouthEast 

DFB #< South 

DFb #< Southwest 

DFB #<West 

DFB (JKNorthWest 



:MDHi 



DFB 
DFB 
DFB 
DFB 
DFB 
DFb 
DFB 
DFB 



#> North 

#>NorthEast 

#>East 

#>SouthEast 

#> South 

#>SouthWest 

#>West 

#>NorthWest 



* local variables 
:CrsDir DS 1 
: JoyDir DS 1 
:ArbDlr DS 1 



:MovDir DS 



1 



direction code from read of 
. . . upper cursor keys 
direction code from read of 
.... joystick switches 
direction code arbitrated 
. . . from upper cursor and 
... joystick direction codes 
direction code for current 
. . . sprite motion 



TTL "S/M ASM 2 B.S" 
* Here Comes The Second Source File 

POT "S/M ASM 2 B.S" 
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1457: 
1458: 
1459: 



145A: 
145C: 
145E: 
1461: 
1462: 



1464: 
1465: 
1466: 



48 
98 
48 



AO 
B1 
99 
88 
10 



68 
A8 
68 



06 
FA 
7E 

F8 



11 



1467: 60 



>2 

>3 

>4 

>5 

>6 

>7 

>8 

>9 

>10 

>11 

>12 

>13 

>14 

>15 

>16 

>17 

>18 

>19 

>20 

>21 

>22 

>23 

>24 

>25 

>26 

>27 

>28 

>29 

>30 

>31 

>32 

>33 

>34 

>35 

>36 

>37 

>38 

>39 

>40 

>41 

>42 

>43 

>44 

>45 

>46 

>47 

>48 

>49 

>50 

>51 

>52 

>53 

>54 

>55 

>56 

>57 

>58 

>59 

>60 

>61 

>62 

>63 

>64 

>65 

>66 

>67 



* SetMoshn 

* Set sprite #1 into some kind of motion 

* on entry, OurPtr points to a motion data record 
SetMoshn 

* save some registers 

PHA 
TYA 
PHA 

* just store the motion data record 

LDY #MvRecSiz-1 ; count those bytes 

:Loop LDA ( OurPtr ),Y ; grab a byte of record 

STA Sp1MvRec,Y ; store that byte 
DEY ; down the counter 

BPL :Loop ; continue 'til done 

* restore some registers 

PLA 
TAY 
PLA 

* return from SetMoshn 

RTS 



AreaSearch 



* uses the current sprite pseudo-mouse position to 

* ... determine which rectangular area (if any) of a set of 

* ... such areas the hot-point of the pseudo-mouse is in 

* . . . ( the areas must be non-overlapping ) 

* upon entry, A- (lo) and X- (hi) point to the data 

* ... representing the set of areas to be searched, 

* ... and the coordinates of the clicked pseudo-mouse 

* ... are in ClikVt, ClikHzLo, and ClikHzHi 

* upon exit, a byte-length identifier for the area the p-m 

* ... coordinates are in is in the A- register, with a 

* ... value of indicating that the pseudo-mouse was not 

* ... found to be in a defined area 

* due to the register usage, only the Y- register is 

* ... preserved by the routine 

* the area data is organized as an array of 7 -byte records 

* each of these records is set up as follows : 

* top boundary 

* bottom boundary 

* left boundary - hi byte 

* left boundary - lo byte 

* right boundary - hi byte 

* right boundary - lo byte 

* area identifier 

* the areas are arranged in top-bottom, left-right 

* ... order within a table to facilitate the search 

* that's also why the two bytes of each horizontal 

* ... boundary are in non-6502-conventional order 
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1468: 85 FA 
146A: 86 FB 



146C: 98 

146D: 48 



146E: AO 00 



1470: B1 FA 
1472: FO 46 



1474: AD 17 1B 



1477: D1 FA 



1479: 90 3D 



147B: C8 
147C: D1 FA 



>68 

>69 

>70 

>71 

>72 

>73 

>74 

>75 

>76 

>77 

>78 

>79 

>80 

>81 

>82 

>83 

>84 

>85 

>86 

>87 

>88 

>89 

>90 

>91 

>92 

>93 

>94 

>95 

>96 

>97 

>98 

>99 

>100 

>101 

>102 

>103 

>104 

>105 

>106 

>107 

>108 

>109 

>110 

>111 

>112 

>113 

>1 1 4 

>115 

>1 1 6 

>117 

>118 

>119 

>120 

>1 21 

>122 

>123 

>124 

>125 

>126 

>127 

>128 

>129 

>130 

>131 

>132 

>133 



* the area coordinates are in a coordinate system based 

* ... on the hot-point of the finger-cursor sprite, so 

* ... no sprite-coordinate adjustments are necessary when 

* ... using that sprite image 

* the arrangement of the data allows the following 

* ... pseudo-code search algorithm : 

* if 

* mouseVert < areaTop 

* then 

* notlnAnArea 

* else-if 

* mouseVert > areaBottom 

* then 

* chekNextArea 

* else-if 

* mouseHorz < areaLeft 

* then 

* chekNextArea 

* else-if 

* mouseHorz > areaRight 

* then 

* chekNextArea 

* else 

* weHaveFoundTheAreaJack 

AreaSearch 

* initialize table pointer 

STA OurPtr ; remember, A- and X- come 
STX OurPtr+1 ; ... in pointing to table 

* save a register 

TYA 
PHA 

* set Y for indexing into a fresh area record 

LDY #0 ; move to top boundary byte 

:LupTop 

* the top of our search loop 

* see if we're at the end of the table of areas 

* if so, get on out 

LDA ( OurPtr ),Y ; get area top 

BEQ :NoFind2 ; marks end of areas table 

* we still have areas to check 

* grab pseudo-mouse vertical coordinate 

LDA ClikVt 

* compare with area ' s top boundary 

CMP ( OurPtr ),Y 

* if it's less than that, we're outta here 

BCC :NoFind1 

* passed that test 

* now, compare mouse vertical with bottom boundary 

INY ; move to area bottom byte 

CMP ( OurPtr ),Y ; check it out 
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147E: 


90 


02 


>134 


1480: 


DO 


27 


>135 
>136 
>137 
>138 
>139 
>140 


1482: 


AD 


16 


1B >1 41 


1485: 


AE 


15 


1B >142 
>143 
>144 


1488: 


C8 




>145 


1489: 


D1 


FA 


>146 


148B: 


90 


1C 


>147 
>148 


148D: 


DO 


OA 


>149 
>150 
>151 
>152 
>153 
>154 
>155 


148F: 


48 




>156 
>157 
>158 


1490: 


8A 




>159 
>160 
>161 


1491: 


C8 




>162 


1492: 


D1 


FA 


>163 
>1 64 
>165 


1494: 


AA 




>166 


1495: 


68 




>167 
>168 
>169 


1496: 


90 


11 


>170 
>1 71 

>172 
>173 
>174 
>175 
>176 


1498: 


88 




>177 
>178 
>179 
>180 
>181 


1499: 


C8 




>182 


149A: 


C8 




>183 


149B: 


D1 


FA 


>184 


149D: 


90 


1E 


>185 

>186 


149F: 


DO 


08 


>187 
>188 
>189 
>190 
>1 91 
>192 


14A1: 


8A 




>193 
>194 
>195 


14A2: 


C8 




>196 


14A3: 


D1 


FA 


>197 


14A5: 


90 


17 


>198 



BCC 

BNE 



:GetHorz 
:NextArea 



less sez passed, so next test 
greater sez failed, so try 
. . . next area 
equal sez passed, so next test 



:GetHorz 

* grab pseudo-mouse horizontal coordinate bytes 

LDA ClikHzHi 
LDX ClikHzLo 

* compare with area's left boundary hi -byte 



INY 
CMP 
BCC 

BNE 



(OurPtr),Y 

:NextArea 

:ChekRite 



move to area left hi-byte 

check it out 

less sez hi-byte failed, so 

. . . try next area 

greater sez hi-byte passed, 

... so on to next test 

equal sez hi-byte inconclusive, 

... so check lo-byte 

* we get here if we need to check left boundary lo-byte 

* save that pseudo-mouse horizontal hi-byte on the stack 

PHA 

* grab pseudo-mouse horizontal coordinate lo-byte 

TXA 

* compare with area's left boundary lo-byte 

INY ; move to area left lo-byte 

CMP (OurPtr),Y ; check it out 

* no matter what the result, we can re-sync things 

TAX ; mouse lo back into X- 

PLA ; mouse hi back into A- 

* now, let's branch on that last test's results 

BCC :NextArea ; less sez lo-byte failed, 

; ... so try next area 

; greater or equal sez 

; lo-byte passed, so continue 

; on 

* get index back in sync after that lo-byte testing 

DEY ; back to area left hi-byte 

:ChekRite 

* time to check the right boundary 

* start with the hi-byte 

INY ; move to area left hi-byte 

INY ; move to area right hi-byte 

CMP (OurPtr),Y ; check it out 

BCC :GotCha1 ; less sez hi-byte passed, so 

we ' ve found the area 

BHE :NextArea ; greater sez hi-byte failed, 
... so on to next area 
equal sez hi-byte inconclusive, 
... so check lo-byte 

* grab pseudo-mouse horizontal coordinate lo-byte 

TXA 

* compare with area's right boundary lo-byte 

INY ; move to area right lo-byte 

CMP (OurPtr),Y ; check it out 

BCC :GotCha2 ; less sez lo-byte passed, so 
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>199 


14A7: 


FO 


15 


>200 
>201 
>202 
>203 
>204 
>205 
>206 
>207 
>208 


14A9: 


18 




>209 


14AA: 


A5 


FA 


>210 


14 AC: 


69 


07 


>211 


14AE: 


85 


FA 


>212 


14B0: 


90 


02 


>213 


14B2: 


E6 


FB 


>214 
>215 
>216 


14B4: 


AO 


00 


>217 


14B6: 


FO 


B8 


>218 
>219 
>220 
>221 
>222 
>223 
>224 


14B8: 


A9 


00 


>225 
>226 
>227 
>228 
>229 


14BA: 


AA 




>230 
>231 
>232 


14BB: 


FO 


05 


>233 
>234 
>235 
>236 


14BD: 


C8 




>237 


14BE: 


C8 




>238 
>239 


14BF: 


B1 


FA 


>240 


14C1: 


AA 




>241 
>242 
>243 
>244 


14C2: 


68 




>245 


14C3: 


A8 




>246 
>247 


14C4: 


8A 




>248 
>249 


14C5: 


60 




>250 
>251 
>252 
>253 
>254 
>255 
>256 
>257 
>258 
>259 
>260 
>261 
>262 
>263 



BEQ 



: GotCha 2 



... we ' ve found the area 
equal sez lo-byte passed, so 
... we ' ve found the area 
greater sez lo-byte failed, 
so try next area 



: Next Area 

* we get here when it ' s time to move on to the next 

* ... area in the table of areas 

* move the pointer along 

CLC ; just add the size of a record 

LDA OurPtr ; ... to the table pointer 
ADC #AreaRcSz 
STA OurPtr 
BCC : SetWhy 
INC OurPtr +1 

* set Y to index into a new record and branch 

: SetWhy LDY #0 ; start at record top 
BEQ :LupTop ; branch always 

* we get to these next two points if the pseudo-mouse 

* ... point is NOT in one of the areas 

:NoFind1 

* we get here if A- isn't guaranteed to contain a 

LDA #0 ; not-found area ID code is 

:NoFind2 

* we get here when the point ' s not in an area 

* ... and A- is guaranteed to contain a 

TAX ; park area ID in X- register 

* and branch on out 

BEQ :Bye ; always 

* we get here when we've found the area the pseudo-mouse 

* ... point is in 

:GotCha1 INY ; move to area right lo-byte 

:GotCha2 INY ; move to area identifier 



LDA 
TAX 



(OurPtr), Y ; grab area's identifier 
; ... and store it in X- 



:Bye 

* restore a register, grab result code, and leave 

PLA ; restore a register 

TAY 



TXA 
RTS 



; remember, we put result in X- 
; return from AreaSearch 



HRRectlnvt 



* switches foreground and background colors in a 

* ... rectangular area of the hi-res bit mapped screen 

* remember, such changes are carried out in a screen grid 

* ... that ' s 40 columns wide and 25 rows high 

* in other words, each grid element controls an area that's 

* ... 8 pixels wide and 8 pixels high 
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4C6: 85 FA 
4C8: 86 FB 



14CA: 88 



14CB: 
14CD: 
14D0: 
14D1: 
14D2: 
14D5: 
14D6: 



A9 00 

8D OF 15 

98 

OA 

2E OF 15 

OA 

2E OF 15 



14D9: 18 

14DA: 65 FA 

14DC: 85 FA 

14DE: AD OF 15 

1 4E1 : 65 FB 

14E3: 85 FB 



14E5: AO 00 



14E7: B1 FA 
14E9: AA 



14EA: C8 

14EB: B1 FA 

14ED: 8D 10 15 

UFO: EE 10 15 



>264 
>265 
>266 
>267 
>268 
>269 
>270 
>271 
>272 
>273 
>274 
>275 
>276 
>277 
>278 
>279 
>280 
>281 
>282 
>283 
>284 
>285 
>286 
>287 
>288 
>289 
>290 
>291 
>292 
>293 
>294 
>295 
>296 
>297 
>298 
>299 
>300 
>301 
>302 
>303 
>304 
>305 
>306 
>307 
>308 
>309 
>310 
>311 
>312 
>313 
>314 
>315 
>316 
>317 
>318 
>319 
>320 
>321 
>322 
>323 
>324 
>325 
>326 
>327 
>328 



* upon entry, 

* 
* 
* 

* 



(lo) and X- (hi) point to a table of 
area rectangle data 
contains the area's ID number, which 
( when put into -based form and 

multiplied by the table's record size ) 
will serve as an offset into the array 



* routine does no error checking, so get those parameters 

* ... right 



*• upon exit, A- 



HRRectlnvt 



and Y- are trashed 



* set pointer to start of area table 

STA OurPtr 
STX OurPtr+1 

* use the ID number to get an array offset 

* make it 0- based 

DEY 

* then multiply by 4 ( the size of each data record 

* ... in the table ), allowing 2 bytes for the result 



#0 
:OfsHi 



LDA 

STA 

TYA 

ASL 

ROL :OfsHi 

ASL 

ROL :OfsHi 



; init. offset hi-byte to 

; move ID# into A- 

; just multiply by 2 twice 

; so A- holds offset lo 

; ... and this guy holds hi 



* now add that offset to the start of the table 



CLC 
ADC 
STA 
LDA 
ADC 
STA 



OurPtr 
OurPtr 
:OfsHi 
OurPtr+1 
OurPtr +1 



prepare to add 
add lo-bytes 
store result 
add hi -bytes 

store result 



contains ( 



* so our pointer's now looking at the identified 

* ... area's rectangular data record, which 

* 

* 
* 
* 



in this order ) 
topmost row 

bottommost row 
leftmost column 
rightmost column 



(byte) 
(byte) 
(byte) 
(byte) 



* let's grab some of that data for a loop that'll call 

* ... on HRBandlnvt for each row of the rectangle 

* prepare Y- for indexing into area record 

LDY #0 

* grab the topmost row for first call to HRBandlnvt 

LDA (OurPtr),Y ; grab topmost row 
TAX ; store it 

* grab the bottommost row for loop-testing purposes 

INY ; on to bottommost row item 

LDA (OurPtr) ,Y ; grab bottommost row 

STA :BtRwPs1 ; store it 

INC :BtRwPs1 ; up it by 1 for easy testing 

* figure out the width of each band 
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14F3 
14F4 
14F6 
14F9 
14FA 
14FC 
14FD 
1500 
1501 



C8 

B1 FA 

8D 11 15 

C8 

B1 FA 

38 

ED 11 15 

A8 

C8 



1502: AD 11 15 



1505: 
1508: 
1509: 
150C: 



20 12 15 

E8 

EC 10 15 

90 F7 



150E: 60 



150F: 
1510: 



00 
00 



1511: 00 



1512: 8D 52 15 



1515: 48 

1516: 8A 

1517: 48 

1518: 98 

1519: 48 



151A: 
151D: 



BD E4 15 
85 FA 



>329 
>330 
>331 
>332 
>333 
>334 
>335 
>336 
>337 
>338 
>339 
>340 
>341 
>342 
>343 
>344 
>345 
>346 
>347 
>348 
>349 
>350 
>351 
>352 
>353 
>354 
>355 
>356 
>357 
>358 
>359 
>360 
>361 
>362 
>363 
>364 
>365 
>366 
>367 
>368 
>369 
>370 
>371 
>372 
>373 
>374 
>375 
>376 
>377 
>378 
>379 
>380 
>381 
>382 
>383 
>384 
>385 
>386 
>387 
>388 
>389 
>390 
>391 
>392 
>393 
>394 



INY 




on to leftmost column item 


LDA 


(OurPtr),Y 


grab leftmost column 


STA 


:LeftCol 


park it 


INY 




on to next item 


LDA 


(OurPtr),Y 


grab rightmost column 


SEC 




prepare to subtract 


SBC 


:LeftCol 


this gives the width less 1 


TAY 




store it 


INY 




get it up to par 



* get the leftmost column back into A- 

LDA :LeftCol 

* now we're all set up for our loop that'll call HRBandlnvt 



: Loop JSR HRBandlnvt 
INX 

CPX :BtRwPs1 

BCC : Loop 



* leave 

RTS 

* local variables 

:OfsHi DS 1 
:BtRwPs1 DS 1 

:LeftCol DS 1 



invert that band 

up the row number 

are we done yet ? 

if not, do another band 

otherwise, leave 



; return from HRRectlnvt 



holds hi-byte of array offset 
holds bottommost row number 
. . . plus 1 
holds leftmost column number 



HRBandlnvt * 



* switches foreground and background colors in a supplied 

* ... horizontal band of the hi-res bit-mapped screen 

* remember, such changes are carried out in a screen grid 

* ... that's 40 columnswide and 25 rows high 

* in other words, each grid element controls an area that's 

* ... 8 pixels wide and 8 pixels high 

* upon entry, A- contains the leftmost column (0..39) 

* X- contains the row (0..24) 

* Y- contains the width of the band (1..39) 

* routine does no error checking, so get those parameters 

* ... right 

* upon exit, A- X- and Y- are same as when they entered 
HRBandlnvt 

* park the starting column 

STA : Temp 

* save some registers 

PHA 
TXA 
PHA 
TYA 
PHA 

* set pointer to start of the row 

LDA HRRowsLo,X ; index table of row lo-bytes 
STA OurPtr 
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151F: 


BD 


FD 


15 >395 






LDA 


HRRowsHi,X ; index table of row hi-bytes 


1522: 


85 


FB 


>396 
>397 






STA 


OurPtr+1 








>398 


* 


move 


pointer to start of the band 


1524: 


AD 


52 


15 >399 






LDA 


:Temp ; fetch the starting column 


1527: 


18 




>400 






CLC 


; add it to row start to get 


1528: 


65 


FA 


>401 






ADC 


OurPtr ; ... start of the band 


152A: 


85 


FA 


>402 






STA 


OurPtr 


152C: 


90 


02 


>403 






BCC 


: LooPrep 


152E: 


E6 


FB 


>404 
>405 






INC 


OurPtr+1 








>406 


* 


loop 


to swap foreground and background nibbles 


1530: 


88 




>407 


: 


LooPrep DEY 


; make width 0-based 








>408 










1531: 


B1 


FA 


>409 
>410 
>411 


' 


LoopTop LDA 


( OurPtr ),Y ; grab a byte 


1533: 


AA 








TAX 


; store a copy of byte 


1534: 


29 


OF 


>412 






AND 


#%00001111 ; isolate lo-nibble 


1536: 


0A 




>413 






ASL 


; move it into hi -nibble 


1537: 


OA 




>414 






ASL 




1538: 


OA 




>415 






ASL 




1539: 


OA 




>416 






ASL 




153A: 


8D 


52 


15 >417 
>418 






STA 


:Temp ; save it 


153D: 


8A 




>419 






TXA 


; get original back 


153E: 


29 


FO 


>420 






AND 


#%1 11 10000 ; isolate hi-nibble 


1540: 


4A 




>421 






LSR 


; move it into lo-nibble 


1541: 


4A 




>422 






LSR 




1542: 


4A 




>423 






LSR 




1543: 


4A 




>424 
>425 






LSR 




1544: 


OD 


52 


15 >426 
>427 






ORA 


:Temp ; combine the two nibbles 


1547: 


91 


FA 


>428 
>429 






STA 


( OurPtr ),Y ; store worked-over byte 


1549: 


88 




>430 






DEY 


; see if there's more to do 


154A: 


10 


E5 


>431 
>432 






BPL 


:LoopTop ; if so, do it 








>433 


* 


restore some registers 


154C: 


68 




>434 






PLA 




154D: 


A8 




>435 






TAY 




154B: 


68 




>436 






PLA 




154F: 


AA 




>437 






TAX 




1550: 


68 




>438 
>439 






PLA 










>440 


* 


return from 


HRBandlnvt 


1551: 


60 




>441 
>442 






RTS 










>443 


* 


local 


variables 








>444 










1552: 


00 




>445 


:Temp 


DS 


1 ; various local activities 








>446 
















>447 
















>448 


* 






TX40BandInvt * 








>449 
















>450 


* 


inverts a band of characters drawn on the standard 








>451 


* 


. . . 40-column text screen 








>452 
















>453 


* 


the text screen can be located anywhere VIC allows it 








>454 


* 


the routine 


is smart enough to find it 








>455 
















>456 


* 


upon 


entry, 


A- contains the leftmost column (0..39) 








>457 


* 






X- contains the row (0..24) 








>458 


* 






Y- contains the width of the band ( 1 . . 39 ) 








>459 
















>460 


* 


routi 


ne does no error checking, so get those 
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1553: 
1556: 
1559: 



155C: 
155D: 
1560: 
1563: 
1566: 



1569: 
156C: 
156E: 



1571: 
1572: 
1575: 
1577: 
1579: 
157C: 



157E: 
1580: 



1583: 
1586: 



1587: 
158A: 
158C: 



8D A4 15 
8E A5 15 
8C A6 15 



8A 

AE A4 15 
20 AA 15 
8D A8 
8E A9 



15 

15 



20 BF 15 
86 FB 
8C A7 15 



18 

6D A8 15 
85 FA 
A5 FB 
6D A9 15 
85 FB 



A9 FA 
8D B9 02 



AC A6 15 
88 



AE A7 15 
A9 FA 
20 74 FF 



158F: 49 80 



1591: 
1594: 

1597: 
1598: 



159A: 
159D: 
15A0: 



AE A7 15 
20 77 FF 

88 

10 ED 



AD A4 15 
AE A5 15 
AC A6 15 



15A3: 60 



15A4: 
15A5: 
15A6: 



00 
00 
00 



461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 



* ... entry parameters right 

* upon exit, A- X- and Y- are same as when they entered 
TXBandlnvt 

* save the registers / park the parameters 

STA :LeftCol 
STX : Row 
STY :Width 

* figure the leftmost column's offset from the screen base 

TXA ; send row in A- 

LDX :LeftCol ; send column in X- 

JSR FigOfs4025 ? call offset figuring function 

STA :OfstLo ; store the result 

STX :OfstHi 

* get base and bank of current 40 -column screen 



JSR 
STX 
STY 



BasBnk40 
OurPtr+1 
:Bank 



comes back with A- (lo) and 
X- (hi) holding base 
address, Y- holding bank # 



* set pointer to leftmost column by adding base and offset 

CLC ; prepare to add 

ADC :OfstLo ; A- already holds base-lo 

STA OurPtr ; store lo-byte result 

LDA OurPtr +1 ; add hi -bytes 

ADC :OfstHi 

STA OurPtr+1 ; store hi-byte result 

* set up for upcoming loop's IndSta banked storage call 

LDA #OurPtr ; get pointer to our pointer 
STA StaVec ; load the IndSta vector 

* Y- will serve as a loop counter and screen byte index 

LDY : Width ; grab band width 

DEY ; make it a -based count 

* loop to grab, invert, and store changed poke code 



: LupTop LDX 
LDA 
JSR 



:Bank 

#OurPtr 

IndFet 



EOR #%1 0000000 



LDX 
JSR 

SLupTest DEY 
BPL 



:Bank 
IndSta 



: LupTop 



setup for IndFet 

fetch a poke code 

flip-flop hi -bit 

setup for IndSta 

store inverted poke code 

see if there's more to do 
if so, do it 



* restore some registers 

LDA :LeftCol 
LDX :Row 
LDY :Width 

* return from TX40BandInvt 

RTS 

* local variables * 



:LeftCol DS 
: Row DS 
:Width DS 



the band's leftmost column 
the band's row 
the band's width 
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15A7: 00 
15A8: 00 
15A9: 00 



15AA: 8E BE 15 
15AD: AA 



15AE: BD E4 15 



15B1: 18 
15B2: 6D BE 15 
15B5: 48 



15B6: BD 16 16 

15B9: 69 00 

15BB: AA 

15BC: 68 

15BD: 60 

15BE: 00 



>526 

>527 

>528 

>529 

>530 

>531 

>532 

>533 

>534 

>535 

>536 

>537 

>538 

>539 

>540 

>541 

>542 

>543 

>544 

>545 

>546 

>547 

>548 

>549 

>550 

>551 

>552 

>553 

>554 

>555 

>556 

>557 

>558 

>559 

>560 

>561 

>562 

>563 

>564 

>565 

>566 

>567 

>568 

>569 

>570 

>571 

>572 

>573 

>574 

>575 

>576 

>577 

>578 

>579 

>580 

>581 

>582 

>583 

>584 

>585 

>586 

>587 

>588 

>589 

>590 



: Bank DS 1 
:OfstLo DS 1 
:OfstHi DS 1 



VIC's working bank 

offset of the band's leftmost 

. . . column from the screen base 



FigOfs4025 * 



* figure a character position's offset from the start of 

* ... a 40-column by 25-row VIC screen buffer 

* ( or any 1000 byte chunk of memory organized as 

* ... an array [0..24, 0..39] ) 

* upon entry. A- contains the position's row (0..24) 

* X- contains the position's column (0..39) 

* upon exit, A- contains the lo-byte of the offset 

* X- contains the hi-byte of the .offset 

FigOfs4025 

* store the parameters 

STX : Column ; column gets a local spot 
TAX ; row into X- 

* get the lo-byte of the row's starting address 

LDA Rows4025Lo,X; indexed from a table 

* add in the column and park the result 

CLC ; prep to add 

ADC : Column ; do it 

PHA ; stack holds lo-byte of offset 

* grab the hi-byte of the row's starting address 

LDA Rows4025Hi,X; indexed from a table 

* add in any carry 

ADC #0 

* move hi-byte into X- 

TAX 

* get lo-byte into A- from stack 

PLA 

* return from FigOfs4025 

RTS 

* local variables * 

: Column DS 1 ; the column 



BasBnk40 



* returns the base address and bank of current 40-column 

* ... VIC text screen 

* upon exit, A- contains lo-byte of base address 

* X- contains hi-byte of base address 

* Y- contains VIC bank ( or 1 ) 

* the text screen can be located anywhere VIC allows it 

* the routine is smart enough to find it 
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15BF: 
15C2: 



15C4: 
15C5: 
15C6: 



AD 06 
29 40 



0A 
OA 
2A 



D5 



15C7: A8 



15C8: 
15CB! 

15CD: 
15D0; 
15D3: 



15D5: 
15D6: 
15D9: 
15DA: 



15DD: 
15DF: 



AD 18 
29 PO 

8D E3 
AD 00 
49 03 



4A 

6E E3 
4A 
6E E3 



A9 00 
AE E3 



DO 



15 



DD 



15 



15E2: 60 



15E3: 00 



>591 
>592 
>593 
>594 
>595 
>596 
>597 
>598 
>599 
>600 
>601 
>602 
>603 
>604 
>605 
>606 
>607 
>608 
>609 
>610 
>611 
>612 
>613 
>614 
>615 
>616 
>617 
>618 
>619 
>620 
>621 
>622 
>623 
>624 
>625 
>626 
>627 
>628 
>629 
>630 
>631 
>632 
>633 
>634 
>635 
>636 
>637 
>638 
>639 
>640 
>641 
>642 
>643 
>644 
>645 
576 
577 
579 
580 
581 
>1 
>2 
>3 
>4 
>5 
>6 



BasBnk40 

* grab byte holding VIC bank state 

LDA MmuRCR 

* mask out all but bit 6 

AND #%01 000000 

* move that standout around to bit 

ASL ; move it into bit 7 

ASL ; move it into Carry flag 

ROL ; move it into bit 

* move that bank § to its register 

TAY 

* now for the base address 

* since the screen can only start on one-K boundaries, 

* ... the low 1 bits of this 1 6-bit address are 

* ... ( that's bits 0..9 ) 

* first, we'll get the VIC one-K indicator nibble 

* these become bits 1 . . 1 3 later on 

LDA VicReg24 

* clear out unwanted nibble 

AND #%1 111 0000 

* store result for a moment 

STA :BaseHi 

* grab the byte holding future address bits 14.. 15 

LDA D2PrA 

* flip-flop those two bits 

EOR #%00000011 

* move those two bits into position 

* at the same time, also get bits 10.. 13 into place 

LSR 

ROR :BaseHi 

LSR 

ROR :BaseHi 

* pack up base address bytes 

LDA #0 ; lo-byte is always this 
LDX :BaseHi ; as figured above 

* return from BasBnk40 

RTS 

* local variables * 

:BaseHi DS 1 ; hi -byte of screen base address 

TTL "S/M ASM 2 C.S" 
* Here Comes The Third Source File * 



PUT "S/M ASM 2 C.S" 



screen address data * 



* a few tables are intertwined here 
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15E4: 
15E7: 
15EA: 
15ED: 
15F0: 
15F3: 
15F6: 
15F9: 
15FC: 



15FD: 
1600: 
1603: 
1606: 
1609: 
160C: 
160F: 
1612: 
1615: 



1616: 
1619: 
161C: 
161F: 
1622: 
1625: 
1628: 
162B: 
162E: 



00 28 
78 A0 
FO 18 
68 90 
EO 08 
58 80 
DO F8 
48 70 
CO 



1C 1C 
1C 1C 
1C 1D 
1D 1D 
1D 1E 
1E 1E 
1E 1E 
1F 1F 
1F 



00 00 
00 00 

00 01 

01 01 

01 02 

02 02 

02 02 

03 03 
03 



50 
C8 
40 
B8 
30 
A8 
20 
98 



00 
00 
01 
01 
02 
02 
03 
03 



162F: 
1630: 
1631: 
1633: 



36 
4C 

00 15 
00 33 



>7 

>8 

>9 

>10 

>11 

>12 

>13 

>14 

>15 

>16 

>17 

>18 

>19 

>20 

>21 

>22 

>23 

>24 

>25 

>26 

>27 

>28 

>29 

>30 

>31 

>32 

>33 

>34 

>35 

>36 

>37 

>38 

>39 

>40 

>41 

>42 

>43 

>44 

>45 

>46 

>47 

>48 

>49 

>50 

>51 

>52 

>53 

>54 

>55 

>56 

>57 

>58 

>59 

>60 

>61 

>62 

>63 

>64 

>65 

>66 

>67 

>68 

>69 

>70 

>71 



* HRRowsLo holds the lo-bytes of row start absolute 

* ... addresses for a stock hi-res bit-map color 

* screen buffer 

* HRRowsHl holds the hi -bytes for the same 

* Rows4025Lo holds the lo-bytes of row start relative 

* ... addresses for any 40h by 25v screen buffer 

* Rows4025Hi holds the hi-bytes for the same 



HRRowsLo 
Rows4025Lo 

HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



HEX CO 



00,28,50 
78,A0,C8 
F0,18,40 
68,90,B8 
E0,08,30 
58,80,A8 
D0,F8,2O 
48,70,98 



HRRowsHi 

HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 

Rows4025Hi 

HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



1C,1C,1C 
1C,1C,1C 
1C,TD,1D 
1D,1D,1D 
1D,1E,1E 
1E,1E,1E 
1E,1E,1F 
1F,1F,1F 
1F 



00,00,00 
00,00,00 
00,01,01 
01,01 ,01 
01,02,02 
02,02,02 
02,02,03 
03,03,03 
03 



* area data for the sound/music lab * 

* coordinates are in a coordinate system based on the 

* ... finger cursor sprite ' s hot point 

* here ' s the format for each area ' s data record : 



* 
* 
* 
LabAreas 



DFB 


??? 


DFB 


??? 


DDB 


??? 


DDB 


??? 


DFB 


??? 


DFB 


54 


DFB 


76 


DDB 


21 


DDB 


51 



top boundary 
bottom boundary 
left boundary - 
right boundary - 
area identifier 



hi byte, then lo 
hi byte, then lo 



; sound : title 
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1635: 


01 




72 
73 


DFB 


1 


1636: 


36 




74 


DFB 


54 


1637: 


4C 




75 


DFB 


76 


1638: 


00 


35 : 


76 


DDB 


53 


163A: 


00 


45 : 


77 


DDB 


69 


163C: 


02 




78 
79 


DFB 


2 


163D: 


36 




80 


DFB 


54 


163E: 


4C 




81 


DFB 


76 


163F: 


00 


46 : 


82 


DDB 


70 


1641: 


00 


76 : 


83 


DDB 


118 


1643: 


03 




84 
85 


DFB 


3 


1644: 


36 




86 


DFB 


54 


1645: 


4C 




87 


DFB 


76 


1646: 


00 


77 : 


88 


DDB 


119 


1648: 


00 


A5 : 


89 


DDB 


165 


164A: 


04 




90 
► 91 


DFB 


4 


164B: 


36 




►92 


DFB 


54 


164C: 


4C 




>93 


DFB 


76 


164D: 


00 


A6 : 


.94 


DDB 


166 


164F: 


00 


B5 


»95 


DDB 


181 


1651: 


05 




>96 
>97 


DFB 


5 


1652: 


36 




► 98 


DFB 


54 


1653: 


4C 




► 99 


DFB 


76 


1654: 


00 


B6 


► 100 


DDB 


182 


1656: 


00 


E5 


► 101 


DDB 


229 


1658: 


06 




►102 
►103 


DFB 


6 


1659: 


36 




► 104 


DFB 


54 


165A: 


4C 




► 105 


DFB 


76 


165B: 


00 


E6 


► 106 


DDB 


230 


165D: 


01 


14 


►107 


DDB 


276 


165F: 


07 




► 108 

► 109 


DFB 


7 


1660: 


36 




►110 


DFB 


54 


1661: 


4C 




► 111 


DFB 


76 


1662: 


01 


15 : 


112 


DDB 


277 


1664: 


01 


26 


► 113 


DDB 


294 


1666: 


08 




►114 
115 


DFB 


8 


1667: 


36 




► 116 


DFB 


54 


1668: 


4C 




►117 


DFB 


76 


1669: 


01 


27 


► 118 


DDB 


295 


166B: 


01 


4C 


► 119 


DDB 


332 


166D: 


09 




►120 
►121 


DFB 


9 


166E: 


56 




►122 


DFB 


86 


166F: 


7C 




► 123 


DFB 


124 


1670: 


00 


15 


► 124 


DDB 


21 


1672: 


00 


3C 


►125 


DDB 


60 


1674: 


0A 




► 126 
►127 


DFB 


10 


1675: 


56 




► 128 


DFB 


86 


1676: 


7C 




►129 


DFB 


124 


1677: 


00 


3E 


•130 


DDB 


62 


1679: 


01 


4C : 


►131 


DDB 


332 


167B: 


OB 




►132 

133 


DFB 


11 


167C: 


86 




134 


DFB 


134 


167D: 


94 




135 


DFB 


148 


167E: 


00 


15 : 


►136 


DDB 


21 


1680: 


00 


94 : 


137 


DDB 


148 



; sound : voice 



; sound : frequency 



; sound : duration 



; sound : step direction 



; sound : minimum frequency 



; sound : sweep step value 



; sound : waveform 



; sound : pulse width 



; play : title 



; play : data 



; envelope : title 
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1682: 


OC 


>138 
>139 


1683: 


86 


>140 


1684: 


94 


>141 


1685: 


00 9D 


>142 


1687: 


00 BC 


>143 


1689: 


53 


>144 
>145 


168A: 


86 


>146 


168B: 


94 


>147 


168C: 


00 C5 


>1 48 


168E: 


00 E4 


>1 49 


1690: 


55 


>150 
>151 


1691: 


86 


>152 


1692: 


94 


>153 


1693: 


00 ED 


>154 


1695: 


01 4C 


>155 


1697: 


57 


>156 
>157 


1698: 


96 


>158 


1699: 


A8 


>159 


169A: 


00 15 


>160 


169C: 


00 28 


>1 61 


169E: 


OD 


>162 
>163 


169F: 


96 


>164 


16A0: 


A8 


>165 


16A1: 


00 29 


>166 


16A3: 


00 38 


>167 


16A5: 


OE 


>168 
>169 


16A6: 


96 


>170 


16A7: 


A8 


>1 71 


16A8: 


00 39 


>172 


16AA: 


00 48 


>173 


16 AC: 


OF 


>174 
>175 


16 AD: 


96 


>176 


16AE: 


A8 


>177 


16AF: 


00 49 


>178 


16B1: 


00 58 


>179 


16B3: 


10 


>180 
>181 


16B4: 


96 


>182 


16B5: 


A8 


>183 


16B6: 


00 59 


>184 


16B8: 


00 68 


>185 


16BA: 


11 


>186 

>187 


16BB: 


96 


>188 


16BC: 


A8 


>189 


16BD: 


00 69 


>190 


16BF: 


00 70 


>191 


16C1: 


12 


>192 
>193 


16C2: 


96 


>194 


16C3: 


A8 


>195 


16C4: 


00 71 


>196 


16C6: 


00 94 


>197 


16C8: 


13 


>198 
>199 


16C9: 


96 


>200 


16CA: 


A4 


>201 


16CB: 


00 9D 


>202 



DFB 



12 



DFB 


134 


DFB 


148 


DDB 


157 


DDB 


188 


DFB 


83 


DFB 


134 


DFB 


148 


DDB 


197 


DDB 


228 


DFB 


85 


DFB 


134 


DFB 


148 


DDB 


237 


DDB 


332 


DFB 


87 


DFB 


150 


DFB 


168 


DDB 


21 


DDB 


40 


DFB 


13 


DFB 


150 


DFB 


168 


DDB 


41 


DDB 


56 


DFB 


14 


DFB 


150 


DFB 


168 


DDB 


57 


DDB 


72 


DFB 


15 


DFB 


150 


DFB 


168 


DDB 


73 


DDB 


88 


DFB 


16 


DFB 


150 


DFB 


168 


DDB 


89 


DDB 


104 


DFB 


17 


DFB 


150 


DFB 


168 


DDB 


105 


DDB 


112 


DFB 


18 


DFB 


150 


DFB 


168 


DDB 


113 


DDB 


148 


DFB 


19 


DFB 


150 


DFB 


164 


DDB 


157 



; volume : title 



; tempo : title 



; filter : title 



; envelope - # 



envelope - attack 



; envelope - decay 



; envelope - sustain 



; envelope - release 



; envelope - waveform 



; envelope - pulse width 



; volume - data 
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16CD: 


00 


BC 


>203 


DDB 


188 


16CF: 


54 




>204 
>205 


DFB 


84 


16D0: 


96 




>206 


DFB 


150 


16D1: 


A4 




>207 


DFB 


164 


16D2: 


00 


C5 


>208 


DDB 


197 


16D4: 


00 


E4 


>209 


DDB 


228 


16D6: 


56 




>210 
>211 


DFB 


86 


16D7: 


96 




>212 


DFB 


150 


16D8: 


AC 




>213 


DFB 


172 


16D9: 


00 


ED 


>214 


DDB 


237 


16DB: 


01 


15 


>215 


DDB 


277 


16DD: 


58 




>216 
>217 


DFB 


88 


16DE: 


96 




>218 


DFB 


150 


16DF: 


AC 




>219 


DFB 


172 


16E0: 


01 


16 


>220 


DDB 


278 


16E2: 


01 


21 


>221 


DDB 


289 


16E4: 


59 




>222 
>223 


DFB 


89 


16E5: 


96 




>224 


DFB 


150 


16E6: 


AC 




>225 


DFB 


172 


16E7: 


01 


22 


>226 


DDB 


290 


16E9: 


01 


29 


>227 


DDB 


297 


16EB: 


5A 




>228 
>229 


DFB 


90 


16EC: 


96 




>230 


DFB 


150 


16ED: 


AC 




>231 


DFB 


172 


16EE: 


01 


2A 


>232 


DDB 


298 


16P0: 


01 


35 


>233 


DDB 


309 


16F2: 


5B 




>234 
>235 


DFB 


91 


16F3: 


96 




>236 


DFB 


150 


16F4: 


AC 




>237 


DFB 


172 


16F5: 


01 


36 


>238 


DDB 


310 


16F7: 


01 


4C 


>239 


DDB 


332 


16F9: 


5C 




>240 
>241 


DFB 


92 


16FA: 


A6 




>242 


DFB 


166 


16FB: 


B4 




>243 


DFB 


180 


16FC: 


00 


96 


>244 


DDB 


150 


16FE: 


00 


C5 


>245 


DDB 


197 


1700: 


5D 




>246 
>247 


DFB 


93 


1701: 


A6 




>248 


DFB 


166 


1702: 


B4 




>249 


DFB 


180 


1703: 


00 


C6 


>250 


DDB 


198 


1705: 


00 


EB 


>251 


DDB 


235 


1707: 


5E 




>252 
>253 


DFB 


94 


1708: 


A9 




>254 


DFB 


169 


1709: 


BO 




>255 


DFB 


176 


170A: 


00 


15 


>256 


DDB 


21 


170C: 


00 


28 


>257 


DDB 


40 


170E: 


14 




>258 
>259 


DFB 


20 


170F: 


A9 




>260 


DFB 


169 


1710: 


BO 




>261 


DFB 


176 


1711: 


00 


29 


>262 


DDB 


41 


1713: 


00 


38 


>263 


DDB 


56 


1715: 


15 




>264 
>265 


DFB 


21 


1716: 


A9 




>266 


DFB 


169 


1717: 


BO 




>267 


DFB 


176 



; tempo - data 



; filter - frequency 



; filter - low-pass 



; filter - band-pass 



; filter - high-pass 



; filter - resonance 



; frame counter - title 



; frame counter - data 



; envelope 1 - § 



; envelope 1 - attack 



; envelope 1 - decay 
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1718: 


00 


39 


>268 


171A: 


00 


48 


>269 


171C: 


16 




>270 
>271 


171D: 


A9 




>272 


171E: 


BO 




>273 


171P: 


00 


49 


>274 


1721: 


00 


58 


>275 


1723: 


17 




>276 
>277 


1724: 


A9 




>278 


1725: 


BO 




>279 


1726: 


00 


59 


>280 


1728: 


00 


68 


>281 


172A: 


18 




>282 
>283 


172B: 


A9 




>284 


172C: 


BO 




>285 


172D: 


00 


69 


>286 


172F: 


00 


70 


>287 


1731: 


19 




>288 
>289 


1732: 


A9 




>290 


1733: 


BO 




>291 


1734: 


00 


71 


>292 


1736: 


00 


94 


>293 


1738: 


1A 




>294 
>295 


1739: 


B1 




>296 


173A: 


B8 




>297 


173B: 


00 


15 


>298 


173D: 


00 


28 


>299 


173F: 


1B 




>300 
>301 


1740: 


B1 




>302 


1741: 


B8 




>303 


1742: 


00 


29 


>304 


1744: 


00 


38 


>305 


1746: 


1C 




>306 
>307 


1747: 


B1 




>308 


1748: 


B8 




>309 


1749: 


00 


39 


>310 


174B: 


00 


48 


>311 


174D: 


1D 




>312 
>313 


174E: 


B1 




>314 


174F: 


B8 




>315 


1750: 


00 


49 


>316 


1752: 


00 


58 


>317 


1754: 


1E 




>318 
>319 


1755: 


B1 




>320 


1756: 


B8 




>321 


1757: 


00 


59 


>322 


1759: 


00 


68 


>323 


175B: 


1F 




>324 
>325 


175C: 


B1 




>326 


175D: 


B8 




>327 


175E: 


00 


69 


>328 


1760: 


00 


70 


>329 


1762: 


20 




>330 
>331 


1763: 


B1 




>332 


1764: 


B8 




>333 



DDB 


57 


DDB 


72 


DFB 


22 


DFB 


169 


DFB 


176 


DDB 


73 


DDB 


88 


DFB 


23 


DFB 


169 


DFB 


176 


DDB 


89 


DDB 


104 


DFB 


24 


DFB 


169 


DFB 


176 


DDB 


105 


DDB 


112 


DFB 


25 


DFB 


169 


DFB 


176 


DDB 


113 


DDB 


148 


DFB 


26 


DFB 


177 


DFB 


184 


DDB 


21 


DDB 


40 


DFB 


27 


DFB 


177 


DFB 


184 


DDB 


41 


DDB 


56 


DFB 


28 


DFB 


177 


DFB 


184 


DDB 


57 


DDB 


72 


DFB 


29 


DFB 


177 


DFB 


184 


DDB 


73 


DDB 


88 


DFB 


30 


DFB 


177 


DFB 


184 


DDB 


89 


DDB 


104 


DFB 


31 


DFB 


177 


DFB 


184 


DDB 


105 


DDB 


112 


DFB 


32 


DFB 


177 


DFB 


184 



; envelope 1 - sustain 

; envelope 1 - release 

; envelope 1 - waveform 

; envelope 1 - pulse width 

; envelope 2 - # 

; envelope 2 - attack 

; envelope 2 - decay 

; envelope 2 - sustain 

; envelope 2 - release 

; envelope 2 - waveform 

; envelope 2 - pulse width 

287 



1765: 


00 71 


>334 


1767: 


00 94 


>335 


1769: 


21 


>336 
>337 


176A: 


B6 


>338 


176B: 


C4 


>339 


176C: 


00 9D 


>340 


176E: 


00 BC 


>341 


1770: 


5F 


>342 
>343 


1771 : 


B6 


>344 


1772: 


C4 


>345 


1773: 


00 C5 


>346 


1775: 


00 E4 


>347 


1777: 


60 


>348 
>349 


1778: 


B6 


>350 


1779: 


C4 


>351 


177A: 


00 ED 


>352 


177C: 


01 OC 


>353 


177E: 


61 


>354 
>355 


177F: 


B6 


>356 


1780: 


C4 


>357 


1781: 


01 15 


>358 


1783: 


01 34 


>359 


1785: 


62 


>360 
>361 


1786: 


B6 


>362 


1787: 


DC 


>363 


1788: 


01 3D 


>364 


USA: 


01 4C 


>365 


178C: 


63 


>366 
>367 


178D: 


B9 


>368 


178E: 


CO 


>369 


178F: 


00 15 


>370 


1791: 


00 28 


>371 


1793: 


22 


>372 
>373 


1794: 


B9 


>374 


1795: 


CO 


>375 


1796: 


00 29 


>376 


1798: 


00 38 


>377 


179A: 


23 


>378 
>379 


179B: 


B9 


>380 


179C: 


CO 


>381 


179D: 


00 39 


>382 


179F: 


00 48 


>383 


17A1: 


24 


>384 
>385 


17A2: 


B9 


>386 


17A3: 


CO 


>387 


17A4: 


00 49 


>388 


17A6: 


00 58 


>389 


17A8: 


25 


>390 
>391 


17A9: 


B9 


>392 


17AA: 


CO 


>393 


17AB: 


00 59 


>394 


17 AD: 


00 68 


>395 


17AF: 


26 


>396 
>397 


17B0: 


B9 


>398 



DDB 


113 


DDB 


148 


DFB 


33 


DFB 


182 


DFB 


196 


DDB 


157 


DDB 


188 


DFB 


95 


DFB 


182 


DFB 


196 


DDB 


197 


DDB 


228 


DFB 


96 


DFB 


182 


DFB 


196 


DDB 


237 


DDB 


268 


DFB 


97 


DFB 


182 


DFB 


196 


DDB 


277 


DDB 


308 


DFB 


98 


DFB 


182 


DFB 


220 


DDB 


317 


DDB 


332 


DFB 


99 


DFB 


185 


DFB 


192 


DDB 


21 


DDB 


40 


DFB 


34 


DFB 


185 


DFB 


192 


DDB 


41 


DDB 


56 


DFB 


35 


DFB 


185 


DFB 


192 


DDB 


57 


DDB 


72 


DFB 


36 


DFB 


185 


DFB 


192 


DDB 


73 


DDB 


88 


DFB 


37 


DFB 


185 


DFB 


192 


DDB 


89 


DDB 


104 


DFB 


38 



DFB 



185 



go 



; forward 



; load 



; clear 



; help 



; envelope 3 - # 



; envelope 3 - attack 



; envelope 3 - decay 



; envelope 3 - sustain 



envelope 3 - release 



envelope 3 - waveform 
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17B1: 


CO 


>399 


DFB 


192 


17B2: 


00 69 


>400 


DDB 


105 


17B4: 


00 70 


>401 


DDB 


112 


17B6: 


27 


>402 
>403 


DFB 


39 


17B7: 


B9 


>404 


DFB 


185 


17B8: 


CO 


>405 


DFB 


192 


17B9: 


00 71 


>406 


DDB 


113 


17BB: 


00 94 


>407 


DDB 


148 


17BD: 


28 


>408 
>409 


DFB 


40 


17BE: 


C1 


>410 


DFB 


193 


17BF: 


C8 


>411 


DFB 


200 


17C0: 


00 15 


>412 


DDB 


21 


17C2: 


00 28 


>413 


DDB 


40 


17C4: 


29 


>414 
>415 


DFB 


41 


17C5: 


C1 


>416 


DFB 


193 


17C6: 


C8 


>417 


DFB 


200 


17C7: 


00 29 


>418 


DDB 


41 


17C9: 


00 38 


>419 


DDB 


56 


17CB: 


2A 


>420 
>421 


DFB 


42 


17CC: 


C1 


>422 


DFB 


193 


17CD: 


C8 


>423 


DFB 


200 


17CE: 


00 39 


>424 


DDB 


57 


17D0: 


00 48 


>425 


DDB 


72 


17D2: 


2B 


>426 
>427 


DFB 


43 


17D3: 


C1 


>428 


DFB 


193 


17D4: 


C8 


>429 


DFB 


200 


17D5: 


00 49 


>430 


DDB 


73 


17D7: 


00 58 


>431 


DDB 


88 


17D9: 


2C 


>432 
>433 


DFB 


44 


17DA: 


C1 


>434 


DFB 


193 


17DB: 


C8 


>435 


DFB 


200 


17DC: 


00 59 


>436 


DDB 


89 


17DE: 


00 68 


>437 


DDB 


104 


17E0: 


2D 


>438 
>439 


DFB 


45 


17E1: 


C1 


>440 


DFB 


193 


17E2: 


C8 


>441 


DFB 


200 


17E3: 


00 69 


>442 


DDB 


105 


17E5: 


00 70 


>443 


DDB 


112 


17E7: 


2E 


>444 
>445 


DFB 


46 


17E8: 


C1 


>446 


DFB 


193 


17E9: 


C8 


>447 


DFB 


200 


17EA: 


00 71 


>448 


DDB 


113 


17EC: 


00 94 


>449 


DDB 


148 


17EE: 


2F 


>450 
>451 


DFB 


47 


17EF: 


C9 


>452 


DFB 


201 


17F0: 


DO 


>453 


DFB 


208 


17F1: 


00 15 


>454 


DDB 


21 


17F3: 


00 28 


>455 


DDB 


40 


17F5: 


30 


>456 
>457 


DFB 


48 


17F6: 


C9 


>458 


DFB 


201 


17F7: 


DO 


>459 


DFB 


208 


17F8: 


00 29 


>460 


DDB 


41 


17FA: 


00 38 


>461 


DDB 


56 


17FC: 


31 


>462 
>463 


DFB 


49 


17FD: 


C9 


>464 


DFB 


201 



; envelope 3 - pulse width 

; envelope 4 - # 

} envelope 4 - attack 

; envelope 4 - decay 

; envelope 4 - sustain 

; envelope 4 - release 

; envelope 4 - waveform 

; envelope 4 - pulse widt: 

; envelope 5 — # 

; envelope 5 - attack 

; envelope 5 - decay 
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17FE: 


DO 




>465 


17FF: 


00 


39 


>466 


1801: 


00 


48 


>467 


1803: 


32 




>468 
>469 


1804: 


C9 




>470 


1805: 


DO 




>471 


1806: 


00 


49 


>472 


1808: 


00 


58 


>473 


180A: 


33 




>474 
>475 


180B: 


C9 




>476 


180C: 


DO 




>477 


180D: 


00 


59 


>478 


180F: 


00 


68 


>479 


1811: 


34 




>480 
>481 


1812: 


C9 




>482 


1813: 


DO 




>483 


1814: 


00 


69 


>484 


1816: 


00 


70 


>485 


1818: 


35 




>486 
>487 


1819: 


C9 




>488 


181A: 


DO 




>489 


181B: 


00 


71 


>490 


181D: 


00 


94 


>491 


181F: 


36 




>492 
>493 


1820: 


CE 




>494 


1821: 


DC 




>495 


1822: 


00 


9D 


>496 


1824: 


00 


BC 


>497 


1826: 


64 




>498 
>499 


1827: 


CE 




>500 


1828: 


DC 




>501 


1829: 


00 


C5 


>502 


182B: 


00 


E4 


>503 


182D: 


65 




>504 
>505 


182E: 


CE 




>506 


182F: 


DC 




>507 


1830: 


00 


ED 


>508 


1832: 


01 


OC 


>509 


1834: 


66 




>510 
>511 


1835: 


CE 




>512 


1836: 


DC 




>513 


1837: 


01 


15 


>514 


1839: 


01 


34 


>515 


183B: 


67 




>516 
>517 


183C: 


D1 




>518 


183D: 


D8 




>519 


183E: 


00 


15 


>520 


1840: 


00 


28 


>521 


1842: 


37 




>522 
>523 


1843: 


D1 




>524 


1844: 


D8 




>525 


1845: 


00 


29 


>526 


1847: 


00 


38 


>527 


1849: 


38 




>528 
>529 



DFB 


208 


DDB 


57 


DDB 


72 


DFB 


50 


DFB 


201 


DFB 


208 


DDB 


73 


DDB 


88 


DFB 


51 


DFB 


201 


DFB 


208 


DDB 


89 


DDB 


104 


DFB 


52 


DFB 


201 


DFB 


208 


DDB 


105 


DDB 


112 


DFB 


53 


DFB 


201 


DFB 


208 


DDB 


113 


DDB 


148 


DFB 


54 


DFB 


206 


DFB 


220 


DDB 


157 


DDB 


188 


DFB 


100 


DFB 


206 


DFB 


220 


DDB 


197 


DDB 


228 


DFB 


101 


DFB 


206 


DFB 


220 


DDB 


237 


DDB 


268 


DFB 


102 


DFB 


206 


DFB 


220 


DDB 


277 


DDB 


308 


DFB 


103 


DFB 


209 


DFB 


216 


DDB 


21 


DDB 


40 


DFB 


55 


DFB 


209 


DFB 


216 


DDB 


41 


DDB 


56 


DFB 


56 



; envelope 5 - sustain 



; envelope 5 - release 



; envelope 5 - waveform 



; envelope 5 - pulse width 



show 



backward 



; print 



; envelope 6 



; envelope 6 - attack 
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184A: 


D1 




>530 


DFB 


209 


184B: 


D8 




>531 


DFB 


216 


184C: 


00 


39 


>532 


DDB 


57 


184E: 


00 


48 


>533 


DDB 


72 


1850: 


39 




>534 
>535 


DFB 


57 


1851: 


D1 




>536 


DFB 


209 


1852: 


D8 




>537 


DFB 


216 


1853: 


00 


49 


>538 


DDB 


73 


1855: 


00 


58 


>539 


DDB 


88 


1857: 


3A 




>540 
>541 


DFB 


58 


1858: 


D1 




>542 


DFB 


209 


1859: 


D8 




>543 


DFB 


216 


185A: 


00 


59 


>544 


DDB 


89 


185C: 


00 


68 


>545 


DDB 


104 


185E: 


3B 




>546 
>547 


DFB 


59 


185F: 


D1 




>548 


DFB 


209 


1860: 


D8 




>549 


DFB 


216 


1861: 


00 


69 


>550 


DDB 


105 


1863: 


00 


70 


>551 


DDB 


112 


1865: 


3C 




>552 
>553 


DFB 


60 


1866: 


D1 




>554 


DFB 


209 


1867: 


D8 




>555 


DFB 


216 


1868: 


00 


71 


>556 


DDB 


113 


186A: 


00 


94 


>557 


DDB 


148 


186C: 


3D 




>558 
>559 


DFB 


61 


186D: 


D9 




>560 


DFB 


217 


186E: 


E0 




>561 


DFB 


224 


186F: 


00 


15 


>562 


DDB 


21 


1871: 


00 


28 


>563 


DDB 


40 


1873: 


3E 




>564 
>565 


DFB 


62 


1874: 


D9 




>566 


DFB 


217 


1875: 


EO 




>567 


DFB 


224 


1876: 


00 


29 


>568 


DDB 


41 


1878: 


00 


38 


>569 


DDB 


56 


187A: 


3F 




>570 
>571 


DFB 


63 


187B: 


D9 




>572 


DFB 


217 


187C: 


EO 




>573 


DFB 


224 


187D: 


00 


2A 


>574 


DDB 


42 


187F: 


00 


48 


>575 


DDB 


72 


1881: 


40 




>576 
>577 


DFB 


64 


1882: 


D9 




>578 


DFB 


217 


1883: 


EO 




>579 


DFB 


224 


1884: 


00 


49 


>580 


DDB 


73 


1886: 


00 


58 


>581 


DDB 


88 


1888: 


41 




>582 
>583 


DFB 


65 


1889: 


D9 




>584 


DFB 


217 


188A: 


EO 




>585 


DFB 


224 


188B: 


00 


59 


>586 


DDB 


89 


188D: 


00 


68 


>587 


DDB 


104 


188F: 


42 




>588 
>589 


DFB 


66 


1890: 


D9 




>590 


DFB 


217 


1891: 


EO 




>591 


DFB 


224 


1892: 


00 


69 


>592 


DDB 


105 


1894: 


00 


70 


>593 


DDB 


112 


1896: 


43 




>594 


DFB 


67 



; envelope 6 - decay 



; envelope 6 - sustain 



envelope 6 - release 



; envelope 6 - waveform 



envelope 6 - pulse width 



; envelope 7 - 



; envelope 7 - attack 



; envelope 7 - decay 



; envelope 7 - sustain 



j envelope 7 - release 



; envelope 7 - waveform 
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► 595 


1897: 


D9 




>596 


1898: 


EO 




►597 


1899: 


00 


71 : 


►598 


189B: 


00 


94 


•599 


189D: 


44 




►600 
► 601 


189E: 


E1 




►602 


189F: 


E8 




► 603 


18A0: 


00 


15 


►604 


18A2: 


00 


28 


► 605 


18A4: 


45 




.606 
►607 


18A5: 


E1 




► 608 


18A6: 


E8 




► 609 


18A7: 


00 


29 


► 610 


18A9: 


00 


38 


► 611 


18AB: 


46 




► 612 

► 613 


18AC: 


E1 




► 614 


18AD: 


E8 




► 615 


18AE: 


00 


39 


► 616 


18B0: 


00 


48 


► 617 


18B2: 


47 




► 618 

► 619 


18B3: 


E1 




► 620 


18B4: 


E8 




► 621 


18B5: 


00 


49 


► 622 


18B7: 


00 


58 


>623 


18B9: 


48 




► 624 

► 625 


18BA: 


E1 




► 626 


18BB: 


E8 




► 627 


18BC: 


00 


59 


► 628 


18BE: 


00 


68 


► 629 


18C0: 


49 




► 630 

► 631 


18C1: 


E1 




► 632 


18C2: 


E8 




► 633 


18C3: 


00 


69 


► 634 


18C5: 


00 


70 


► 635 


18C7: 


4A 




► 636 

► 637 


18C8: 


E1 




► 638 


18C9: 


E8 




► 639 


18CA: 


00 


71 


► 640 


18CC: 


00 


94 


► 641 


18CE: 


4B 




► 642 

► 643 


18CF: 


E6 




► 644 


18D0: 


F4 




► 645 


18D1: 


00 


9D 


► 646 


18D3: 


01 


24 


► 647 


18D5: 


68 




► 648 

► 649 


18D6: 


E6 




► 650 


18D7: 


F4 




► 651 


18D8: 


01 


2E 


► 652 


18DA: 


01 


4C 


► 653 


18DC: 


69 




►654 
►655 


18DD: 


E9 




►656 


18DE: 


F4 




►657 


18DF: 


00 


15 : 


658 


18E1: 


00 


28 : 


659 



DFB 


217 


DFB 


224 


DDB 


113 


DDB 


148 


DFB 


68 


DFB 


225 


DFB 


232 


DDB 


21 


DDB 


40 


DFB 


69 


DFB 


225 


DFB 


232 


DDB 


41 


DDB 


56 


DFB 


70 


DFB 


225 


DFB 


232 


DDB 


57 


DDB 


72 


DFB 


71 


DFB 


225 


DFB 


232 


DDB 


73 


DDB 


88 


DFB 


72 


DFB 


225 


DFB 


232 


DDB 


89 


DDB 


104 


DFB 


73 


DFB 


225 


DFB 


232 


DDB 


105 


DDB 


112 


DFB 


74 


DFB 


225 


DFB 


232 


DDB 


113 


DDB 


148 


DFB 


75 


DFB 


230 


DFB 


244 


DDB 


157 


DDB 


292 


DFB 


104 


DFB 


230 


DFB 


244 


DDB 


302 


DDB 


332 


DFB 


105 


DFB 


233 


DFB 


244 


DDB 


21 


DDB 


40 



; envelope 7 - pulse width 



; envelope 8 - § 



j envelope 8 - attack 



; envelope 8 - decay 



; envelope 8 - sustain 



; envelope 8 - release 



; envelope 8 - waveform 



; envelope 8 - pulse width 



; message window 



; end 



; envelope 9 - § 
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18E3: 


4C 




>660 
>661 




DFB 


76 






18E4: 


E9 




>662 




DFB 


233 


; envelope 9 - 


attack 


18E5: 


F4 




>663 




DFB 


244 






18E6: 


00 


29 


>664 




DDB 


41 






18E8: 


00 


38 


>665 




DDB 


56 






18EA: 


4D 




>666 
>667 




DFB 


77 






18EB: 


E9 




>668 




DFB 


233 


; envelope 9 - 


decay 


18EC: 


F4 




>669 




DFB 


244 






18ED: 


00 


39 


>670 




DDB 


57 






18EF: 


00 


48 


>671 




DDB 


72 






18F1: 


4E 




>672 
>673 




DFB 


78 






18F2: 


E9 




>674 




DFB 


233 


; envelope 9 - 


sustain 


18F3: 


F4 




>675 




DFB 


244 






18F4: 


00 


49 


>676 




DDB 


73 






18F6: 


00 


58 


>677 




DDB 


88 






18F8: 


4F 




>678 
>679 




DFB 


79 






18F9: 


E9 




>680 




DFB 


233 


; envelope 9 - 


release 


18FA: 


F4 




>681 




DFB 


244 






18FB: 


00 


59 


>682 




DDB 


89 






18FD: 


00 


68 


>683 




DDB 


104 






18FF: 


50 




>684 
>685 




DFB 


80 






1900: 


E9 




>686 




DFB 


233 


; envelope 9 - 


waveform 


1901: 


F4 




>687 




DFB 


244 






1902: 


00 


69 


>688 




DDB 


105 






1904: 


00 


70 


>689 




DDB 


112 






1906: 


51 




>690 
>691 




DFB 


81 






1907: 


E9 




>692 




DFB 


233 


; envelope 9 - 


pulse width 


1908: 


F4 




>693 




DFB 


244 






1909: 


00 


71 


>694 




DDB 


113 






190B: 


00 


94 


>695 




DDB 


148 






190D: 


52 




>696 
>697 




DFB 


82 






190E: 


00 




>698 
>699 
>700 
>701 
>702 


♦ 


DFB 





; marks end of 
data for the help s 


this table 






















>703 


* here 


s the 


format 


: 










>704 


















>705 


* 


DFB 


??? 


top boundary 










>706 


* 


DFB 


??? 


bottom boundary 










>707 


* 


DDB 


??? 


left boundary - 


hi byte, then lo 








>708 


* 


DDB 


??? 


right boundary - 


hi byte, then lo 








>709 


* 


DFB 


??? 


area identifier 










>710 


















>711 


HlpAreas 








190F: 


E5 




>712 




DFB 


229 


} first 




1910: 


F5 




>713 




DFB 


245 






1911: 


00 


15 


>714 




DDB 


21 






1913: 


00 


45 


>715 




DDB 


69 






1915: 


01 




>716 
>717 




DFB 


1 






1916: 


E5 




>718 




DFB 


229 


; previous 




1917: 


F5 




>719 




DFB 


245 






1918: 


00 


55 


>720 




DDB 


85 






191A: 


00 


9D 


>721 




DDB 


157 






191C: 


02 




>722 
>723 




DFB 


2 






1 91 D: 


E5 




>724 




DFB 


229 


; next 
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191E 
191F 
1921 
1923 

1924 
1925 
1926 
1928 
192A 

192B 
192C 
192D 
192F 
1931 

1932 



F5 

00 AD 
00 D5 
03 

E5 
F5 

00 E5 

01 0D 
04 

E5 
F5 

01 2D 
01 4D 
05 

00 



1933: 
1935: 



02 02 
01 03 



1937: 
1939: 


01 
05 


02 
05 


193B: 
193D: 


01 
07 


02 
OB 


193F: 
1941: 


01 
OD 


02 
11 


1943: 
1945: 


01 
13 


02 

13 


1947: 
1949: 


01 
15 


02 

19 


194B: 
194D: 


01 
1B 


02 

1F 


194F: 
1951: 


01 
21 


02 
21 


1953: 
1955: 


01 
23 


02 
26 


1957: 
1959: 


07 
01 


07 
04 



>725 

>726 

>727 

>728 

>729 

>730 

>731 

>732 

>733 

>734 

>735 

>736 

>737 

>738 

>739 

>740 

>741 

>742 

>743 

>744 

>745 

>746 

>747 

>748 

>749 

>750 

>751 

>752 

>753 

>754 

>755 

>756 

>757 

>758 

>759 

>760 

>761 

>762 

>763 

>764 

>765 

>766 

>767 

>768 

>769 

>770 

>771 

>772 

>773 

>774 

>775 

>776 

>777 

>778 

>779 

>780 

>781 

>782 

>783 

>784 

>785 

>786 

>787 

>788 

>789 



DFB 


245 


DDB 


173 


DDB 


213 


DFB 


3 


DFB 


229 


DFB 


245 


DDB 


229 


DDB 


269 


DFB 


4 


DFB 


229 


DFB 


245 


DDB 


301 


DDB 


333 


DFB 


5 



; last 



; lab 



DFB 



; marks end of this table 



inversion rectangles for lab areas * 



* an array of area inversion rectangle data, arranged in 

* ... order of each area's identifying number 

* coordinates are in the standard 40 -column text screen 

* ... coordinate system, since bit-map color info is 

* ... stored in such a system 

* here ' s the format for each area ' s inversion rectangle : 



* 
* 

LablnvRex 



DFB 
DFB 


??,?? 
??,?? 


X 

DFB 
DFB 


2,2 

1,3 


DFB 
DFB 


1,2 

5,5 


DFB 
DFB 


1,2 

7,11 


DFB 
DFB 


1,2 
13,17 


DFB 

DFB 


1,2 
19,19 


DFB 

DFB 


1,2 
21,25 


DFB 
DFB 


1,2 
27,31 


DFB 
DFB 


1,2 
33,33 


DFB 
DFB 


1,2 
35,38 


DFB 
DFB 


7,7 
1,4 



topMostRow, bottomMos tRow 

lef tMostColumn , rightMostColumn 



sound 


: title 


sound 


: voice 


sound 


: frequency 


sound 


: duration 


sound 


: step direction 


sound 


: minimum frequency 


sound 


: sweep step value 


sound 


: waveform 


sound 


: pulse width 


play : 


title 
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195B: 


05 


08 


>790 


DFB 


5,8 


; play : data 


195D: 


06 


26 


>791 
>792 


DFB 


6,38 






195F: 


OB 


OB 


>793 


DFB 


11,11 


; envelope 


: title 


1961: 


04 


OC 


>794 
>795 


DFB 


4,12 






1963: 


OE 


OE 


>796 


DFB 


14,14 


; envelope 


- § 


1965: 


01 


01 


>797 
>798 


DFB 


1,1 






1967: 


OE 


OE 


>799 


DFB 


14,14 


; envelope 


- attack 


1969: 


03 


04 


>800 
>801 


DFB 


3,4 






196B: 


OE 


OE 


>802 


DFB 


14,14 


; envelope 


- decay 


196D: 


05 


06 


>803 
>804 


DFB 


5,6 






196F: 


OE 


OE 


>805 


DFB 


14,14 


; envelope 


- sustain 


1971: 


07 


08 


>806 
>807 


DFB 


7,8 






1973: 


OE 


OE 


>808 


DFB 


14,14 


; envelope 


- release 


1975: 


09 


OA 


>809 
>810 


DFB 


9,10 






1977: 


OE 


OE 


>811 


DFB 


14,14 


; envelope 


- waveform 


1979: 


OB 


OB 


>812 

>813 


DFB 


11,11 






197B: 


OE 


OE 


>814 


DFB 


14,14 


; envelope 


- pulse width 


197D: 


OC 


OF 


>815 
>816 


DFB 


12,15 






197F: 


OF 


OF 


>817 


DFB 


15,15 


; envelope 


1 - # 


1981: 


01 


01 


>818 
>819 


DFB 


1,1 






1983: 


OF 


OF 


>820 


DFB 


15,15 


; envelope 


1 - attack 


1985: 


03 


04 


>821 
>822 


DFB 


3,4 






1987: 


OF 


OF 


>823 


DFB 


15,15 


; envelope 


1 - decay 


1989: 


05 


06 


>824 
>825 


DFB 


5,6 






198B: 


OF 


OF 


>826 


DFB 


15,15 


; envelope 


1 - sustain 


198D: 


07 


08 


>827 
>828 


DFB 


7,8 






198F: 


OF 


OF 


>829 


DFB 


15,15 


; envelope 


1 - release 


1991: 


09 


OA 


>830 
>831 


DFB 


9,10 






1993: 


OF 


OF 


>832 


DFB 


15,15 


; envelope 


1 - waveform 


1995: 


OB 


OB 


>833 
>834 


DFB 


11,11 






1997: 


OE 


OE 


>835 


DFB 


14,14 


; envelope 


1 - pulse width 


1999: 


OC 


OF 


>836 
>837 


DFB 


12,15 






199B: 


10 


10 


>838 


DFB 


16,16 


; envelope 


2 - § 


199D: 


01 


01 


>839 
>840 


DFB 


1,1 






199F: 


10 


10 


>841 


DFB 


16,16 


; envelope 


2 - attack 


19A1: 


03 


04 


>842 
>843 


DFB 


3,4 






19A3: 


10 


10 


>844 


DFB 


16,16 


; envelope 


2 - decay 


19A5: 


05 


06 


>845 
>846 


DFB 


5,6 






19A7: 


10 


10 


>847 


DFB 


16,16 


; envelope 


2 - sustain 


19A9: 


07 


08 


>848 
>849 


DFB 


7,8 






19AB: 


10 


10 


>850 


DFB 


16,16 


; envelope 


2 - release 


19 AD: 


09 


OA 


>851 
>852 


DFB 


9,10 






19AF: 


10 


10 


>853 


DFB 


16,16 


; envelope 


2 - waveform 


19B1: 


OB 


OB 


>854 


DFB 


11,11 
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>855 






19B3: 


10 


10 


>856 


DFB 


16,16 


19B5: 


OC 


OF 


>857 
>858 


DFB 


12,15 


19B7: 


11 


11 


>859 


DFB 


17,17 


19B9: 


01 


01 


>860 
>861 


DFB 


1,1 


19BB: 


11 


11 


>862 


DFB 


17,17 


19BD: 


03 


04 


>863 
>864 


DFB 


3,4 


19BP: 


11 


11 


>865 


DFB 


17,17 


19C1: 


05 


06 


>866 
>867 


DFB 


5,6 


19C3: 


11 


11 


>868 


DFB 


17,17 


19C5: 


07 


08 


>869 
>870 


DFB 


7,8 


19C7: 


11 


11 


>871 


DFB 


17,17 


19C9: 


09 


OA 


>872 
>873 


DFB 


9,10 


19CB: 


11 


11 


>874 


DFB 


17,17 


19CD: 


OB 


OB 


>875 
>876 


DFB 


11,11 


19CF: 


11 


11 


>877 


DFB 


17,17 


19D1: 


OC 


OF 


>878 
>879 


DFB 


12,15 


19D3: 


12 


12 


>880 


DFB 


18,18 


19D5: 


01 


01 


>881 
>882 


DFB 


1,1 


19D7: 


12 


12 


>883 


DFB 


18,18 


19D9: 


03 


04 


>884 
>885 


DFB 


3,4 


19DB: 


12 


12 


>886 


DFB 


18,18 


19DD: 


05 


06 


>887 

>888 


DFB 


5,6 


19DF: 


12 


12 


>889 


DFB 


18,18 


19E1: 


07 


08 


>890 
>891 


DFB 


7,8 


19E3: 


12 


12 


>892 


DFB 


18,18 


19E5: 


09 


OA 


>893 
>894 


DFB 


9,10 


19E7: 


12 


12 


>895 


DFB 


18,18 


19E9: 


OB 


OB 


>896 
>897 


DFB 


11,11 


19EB: 


12 


12 


>898 


DFB 


18,18 


19ED: 


OC 


OF 


>899 
>900 


DFB 


12,15 


19EF: 


13 


13 


>901 


DFB 


19,19 


19F1: 


01 


01 


>902 
>903 


DFB 


1,1 


19F3: 


13 


13 


>904 


DFB 


19,19 


19F5: 


03 


04 


>905 
>906 


DFB 


3,4 


19F7: 


13 


13 


>907 


DFB 


19,19 


19F9: 


05 


06 


>908 
>909 


DFB 


5,6 


19FB: 


13 


13 


>910 


DFB 


19,19 


19FD: 


07 


08 


>911 
>912 


DFB 


7,8 


19FF: 


13 


13 


>913 


DFB 


19,19 


1A01: 


09 


OA 


>914 
>915 


DFB 


9,10 


1A03: 


13 


13 


>916 


DFB 


19,19 


1A05: 


OB 


OB 


>917 
>918 


DFB 


11,11 


1A07: 


13 


13 


>919 


DFB 


19,19 


1A09: 


OC 


OF 


>920 


DFB 


12,15 



envelope 2 - pulse width 
envelope 3 - # 
envelope 3 - attack 
envelope 3 - decay 
envelope 3 - sustain 
envelope 3 - release 
envelope 3 - waveform 
envelope 3 - pulse width 
envelope 4 - § 
envelope 4 - attack 
envelope 4 - decay 
envelope 4 - sustain 
envelope 4 - release 
envelope 4 - waveform 
envelope 4 - pulse width 
envelope 5 - § 
envelope 5 - attack 
envelope 5 - decay 
envelope 5 - sustain 
envelope 5 - release 
envelope 5 - waveform 
envelope 5 - pulse width 
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>921 


1A0B: 


14 


14 


>922 


1A0D: 


01 


01 


>923 
>924 


1A0F: 


14 


14 


>925 


1A11: 


03 


04 


>926 
>927 


1A13: 


14 


14 


>928 


1A15: 


05 


06 


>929 
>930 


1A17: 


14 


14 


>931 


1A19: 


07 


08 


>932 
>933 


1A1B: 


14 


14 


>934 


1A1D: 


09 


OA 


>935 
>936 


1A1F: 


14 


14 


>937 


1A21: 


OB 


OB 


>938 
>939 


1A23: 


14 


14 


>940 


1A25: 


OC 


OF 


>941 
>942 


1A27: 


15 


15 


>943 


1A29: 


01 


01 


>944 
>945 


1A2B: 


15 


15 


>946 


1A2D: 


03 


04 


>947 

>948 


1A2F: 


15 


15 


>949 


1A31: 


05 


06 


>950 
>951 


1A33: 


15 


15 


>952 


1A35: 


07 


08 


>953 
>954 


1A37: 


15 


15 


>955 


1A39: 


09 


OA 


>956 
>957 


1A3B: 


15 


15 


>958 


1A3D: 


OB 


OB 


>959 
>960 


1A3F: 


15 


15 


>961 


1A41: 


OC 


OF 


>962 
>963 


1A43: 


16 


16 


>964 


1A45: 


01 


01 


>965 
>966 


1A47: 


16 


16 


>967 


1A49: 


03 


04 


>968 
>969 


1A4B: 


16 


16 


>970 


1A4D: 


05 


06 


>971 
>972 


1A4F: 


16 


16 


>973 


1A51: 


07 


08 


>974 
>975 


1A53: 


16 


16 


>976 


1A55: 


09 


OA 


>977 
>978 


1A57: 


16 


16 


>979 


1A59: 


OB 


OB 


>980 
>981 


1A5B: 


16 


16 


>982 


1A5D: 


OC 


OF 


>983 
>984 


1A5F: 


17 


17 


>985 



DFB 
DFB 


20,20 

1,1 


DFB 
DFB 


20,20 
3,4 


DFB 
DFB 


20,20 
5,6 


DFB 
DFB 


20,20 
7,8 


DFB 
DFB 


20,20 
9,10 


DFB 
DFB 


20,20 
11,11 


DFB 
DFB 


20,20 
12,15 


DFB 
DFB 


21,21 
1,1 


DFB 
DFB 


21,21 
3,4 


DFB 

DFB 


21,21 
5,6 


DFB 
DFB 


21,21 
7,8 


DFB 
DFB 


21,21 
9,10 


DFB 
DFB 


21,21 
11,11 


DFB 
DFB 


21,21 
12,15 


DFB 
DFB 


22,22 

1,1 


DFB 
DFB 


22,22 

3,4 


DFB 
DFB 


22,22 
5,6 


DFB 
DFB 


22,22 
7,8 


DFB 
DFB 


22,22 
9,10 


DFB 
DFB 


22,22 
11,11 


DFB 
DFB 


22,22 

12,15 



DFB 23,23 



envelope 6 - § 
envelope 6 - attack 
envelope 6 - decay 
envelope 6 - sustain 
envelope 6 - release 
envelope 6 - waveform 
envelope 6 - pulse width 
envelope 7 - # 
envelope 7 - attack 
envelope 7 - decay 
envelope 7 - sustain 
envelope 7 - release 
envelope 7 - waveform 
envelope 7 - pulse width 
envelope 8 - # 
envelope 8 - attack 
envelope 8 - decay 
envelope 8 - sustain 
envelope 8 - release 
envelope 8 - waveform 
envelope 8 - pulse width 
envelope 9 - # 
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1A61: 


01 


01 ) 


986 
987 


1A63: 


17 


17 : 


988 


1A65: 


03 


04 ) 


989 
990 


1A67: 


17 


17 : 


991 


1A69: 


05 


06 : 


992 
993 


1A6B: 


17 


17 ! 


994 


1A6D: 


07 


08 : 


►995 
996 


1A6F: 


17 


17 : 


997 


1A71: 


09 


OA : 


►998 
999 


1A73: 


17 


17 : 


►1000 


1A75: 


OB 


OB : 


.1001 
>1002 


1 A77 : 


17 


17 


►1003 


1A79: 


OC 


OF 


• 1004 
►1005 


1A7B: 


OB 


OB 


► 1006 


1A7D: 


12 


14 


>1007 
► 1008 


1A7F: 


OD 


OD 


► 1009 


1A81: 


12 


14 


► 1010 

► 101 1 


1A83: 


OB 


OB 


► 1012 


1A85: 


17 


19 


► 1013 

► 1014 


1A87: 


OD 


OD 


► 1015 


1A89: 


17 


19 


► 1016 

► 1017 


1A8B: 


OB 


OB 


► 1018 


1A8D: 


1E 


23 


► 1019 

► 1020 


1A8F: 


OD 


OE 


► 1021 


1A91: 


1C 


1F 


► 1022 

► 1023 


1A93: 


OD 


OE 


►1024 


1A95: 


21 


21 


► 1025 
►1026 


1A97: 


OD 


OE 


►1027 


1A99: 


22 


22 


►1028 
►1029 


1A9B: 


OD 


OE 


►1030 


1A9D: 


23 


23 


►1031 
►1032 


1A9F: 


OD 


OE 


►1033 


1AA1: 


25 


26 


►1034 
►1035 


1AA3: 


OF 


OF 


►1036 


1AA5: 


11 


15 


►1037 
•1038 


1AA7: 


OF 


OF : 


1039 


1AA9: 


17 


1A J 


1040 
1041 


1AAB: 


11 


11 : 


1042 


1AAD: 


12 


13 ) 


1043 
1044 


1AAF: 


11 


11 ) 


1045 


1AB1 : 


17 


19 : 


1046 
1047 


1AB3: 


11 


11 ! 


1048 


1AB5: 


1C 


1E > 


1049 
1050 



DFB 



1,1 



DFB 
DFB 


23,23 
3,4 


DFB 
DFB 


23,23 
5,6 


DFB 
DFB 


23,23 
7,8 


DFB 
DFB 


23,23 
9,10 


DFB 
DFB 


23,23 
11,11 


DFB 
DFB 


23,23 
12,15 


DFB 
DFB 


11 ,11 
18,20 


DFB 
DFB 


13,13 
18,20 


DFB 
DFB 


11,11 
23,25 


DFB 
DFB 


13,13 
23,25 


DFB 
DFB 


11,11 
30,35 


DFB 
DFB 


13,14 
28,31 


DFB 
DFB 


13,14 
33,33 


DFB 
DFB 


13,14 
34,34 


DFB 
DFB 


13,14 
35,35 


DFB 
DFB 


13,14 
37,38 


DFB 
DFB 


15,15 
17,21 


DFB 
DFB 


15,15 
23,26 


DFB 

DFB 


17,17 
18,19 


DFB 
DFB 


17,17 
23,25 


DFB 
DFB 


17,17 
28,30 



envelope 9 - attack 
envelope 9 - decay 
envelope 9 - sustain 
envelope 9 - release 
envelope 9 - waveform 
envelope 9 - pulse width 
volume : title 
volume - data 
tempo : title 
tempo - data 
filter : title 
filter - frequency 
filter - low-pass 
filter - band-pass 
filter - high-pass 
filter - resonance 
frame counter - title 
frame counter - data 
go 

forward 
load 
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AB7: 11 11 >1051 DFB 17,17 ; clear 

1AB9: 21 23 >1052 DFB 33 35 

>1053 

1ABB: 11 14 >1054 DFB 17,20 ; help 

1ABD: 26 26 >1055 DFB 38,38 

>1056 

1ABF: 14 14 >1057 DFB 20,20 ; show 

1AC1: 12 14 >1058 DFB 18,20 

>1059 

l*ZV ]*-, \i ^S 60 DFB 20 ' 20 • backward 

1AC5: 17 19 >1061 DFB 23,25 

>1062 
1AC7: 14 14 >1063 DFB 20,20 ; save 

1AC9: 1C 1E >1064 DFB 28 30 

>1065 
1ACB: 14 14 >1066 DFB 20,20 ; print 

1ACD: 21 23 >1067 DFB 33 35 

>1068 

IadT: \l 11 V,™ DFB 23 ' 23 • messa 9 e win «3ow 

1AD1: 12 21 >1070 DFB 18,33 

>1071 
1AD3: 17 17 >1072 DFB 23,23 ; end 

1AD5: 24 26 >1073 DFB 36 38 

>1074 

>1075 

l^lt * sprite motion data * 

>1078 * data for moving north 

>1079 

>1080 North 
1AD7: 03 >1081 : Speed HEX 03 

1AD8: 00 >1082 :Unknown HEX 00 

1AD9: 00 >1083 :Quadrnt HEX 00 

1ADA: 00 00 >1084 :DeltaX HEX 00,00 

1ADC: FF 7F >1085 :DeltaY HEX FF,7F 

>1086 

>1087 

>1088 * data for moving northeast 

>1089 

>1090 NorthEast 



1ADE: 


03 




>1091 : Speed HEX 


03 


1ADF: 


00 




>1092 : Unknown HEX 


00 


1AE0: 


00 




>1093 :Quadrnt HEX 


00 


1AE1: 


2B 


5A 


>1094 :DeltaX HEX 


2B,5A 


1AE3: 


2B 


5A 


>1095 :DeltaY HEX 

>1096 

>1097 

>1098 * data for mov 

>1099 

>1100 East 


2B.5A 
ing east 


1AE5: 


04 




>11 01 : Speed HEX 


04 


1AE6: 


00 




>11 02 : Unknown HEX 


00 


1AE7: 


01 




>1 1 03 :Quadrnt HEX 


01 


1AE8: 


FF 


7F 


>11 04 :DeltaX HEX 


FF,7F 


IAEA: 


00 


00 


>11 05 :DeltaY HEX 

>1106 

>1 1 07 


00,00 








>1108 * data for moving southeast 








>1109 










>1110 southEast 




1 AEC: 


03 




> 1 1 1 1 : Speed HEX 


03 


1AED: 
1AEE: 
1AEF: 
1 ap 1 ; 


00 




>1112 : Unknown HEX 


00 


01 
2B 
2B 


5A 
5A 


>1113 :Quadrnt HEX 
>1114 :DeltaX HEX 
>1115 :DeltaY HEX 


01 

2B,5A 

2B.5A 
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1AF3: 03 

1AF4: 00 

1AF5: 02 

1AF6: 00 00 

1AF8: FF 7F 



1AFA: 03 

1AFB: 00 

1AFC: 02 

1AFD: 2B 5A 

1AFF: 2B 5A 



1B01: 
1B02: 
1B03: 
1B04: 

1B06: 



1B08: 
1B09: 
1B0A: 
1B0B: 
1B0D: 



04 
00 
03 

FF 7F 
00 00 



03 
00 
03 

2B 5A 
2B 5A 



1B0F: 00 00 
1B11: 00 00 
1B13: 00 



1B14: 00 
1B15: 00 



1B16: 00 
1B17: 00 



>1116 
>1 1 17 

>1118 

>1119 

>1120 

>1121 

>11 22 

>1123 

>1124 

>11 25 

>1126 

>1127 

>1128 

>1129 

>1130 

>1131 

>1132 

>1133 

>1134 

>1135 

>1136 

>1137 

>1 1 38 

>1139 

>1140 

>1 1 41 

>1142 

>1143 

>11 44 

>1145 

>1146 

>1147 

>1148 

>1149 

>1150 

>1 1 51 

>11 52 

>1153 

>1154 

>1155 

>1156 

>11 57 

>1158 

>1 159 

>11 60 

>1 1 61 

>1162 

>1163 

>1164 

>1165 

>1166 

>1167 

>1168 

>1169 

>1170 

>1 171 

>1172 

>1173 

>1174 

>1175 



* data for moving south 



South 

: Speed HEX 
: Unknown HEX 
:Quadrnt HEX 
:DeltaX HEX 
: Delta Y HEX 



03 

00 

02 

00,00 

FF,7F 



* data for moving southwest 



Southwest 
: Speed HEX 
: Unknown HEX 
:Quadrnt HEX 
:DeltaX HEX 
:DeltaY HEX 



03 

00 

02 

2B,5A 

2B,5A 



* data for moving west 



West 

: Speed HEX 
:Unknown HEX 
:Quadrnt HEX 
:DeltaX HEX 
:DeltaY HEX 



04 

00 

03 

FF,7F 

00,00 



* data for moving northwest 



Northwest 
: Speed HEX 
: Unknown HEX 
:Quadrnt HEX 
:DeltaX HEX 
:DeltaY HEX 



RegKeyChk DS 
RegllRQ DS 
MoveFlag DFB 



ButnStat DFB 
ClikHzLo DS 

ClikHzHi DS 

ClikVt DS 



03 

00 

03 

2B,5A 

2B,5A 



Miscellaneous Global Variables * 





1 

1 

1 



the pre -detour KeyChk vector 

the pre-detour Ilrq vector 

tells whether we're still or 

. • . moving , under keyboard or 

... joystick power 

holds state of pseudo-mouse 

. . . button 

pseudo-mouse horizontal 

. . . position lo-byte at time 

... of a click 

pseudo-mouse horizontal 

... position hi-bit at time 

... of a click 

pseudo-mouse vertical 

. . . position at time of a 

... click 



-End assembly, 2072 bytes, Errors: 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1T90 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 



REM 

REM 

REM 

REM 
REM 
REM 

REM 

REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 



PROGRAM IDENTIFICATION 

S/M HELP PACKER 

CREATES THE FILE S/M HELP PACK 

S/M HELP PACK CONTAINS DATA FOR SOUND/MUSIC LAB'S 
. . . HELP SCREENS , READY TO BLOAD INTO POSITION 
... IN RAM BANK 1, 32768-64575 ( $8000-$FC3F ) 



VERSION : 
TIMESTAMP 



1.00 

11 :06 PM 



NOVEMBER 23, 1986 



PROGRAMMED BY STAN KRUTE 

COPYRIGHT (C) 1986 BY STAN KRUTE' S HACKER & NERD 

18617 CAMP CREEK ROAD 
HORNBROOK, CALIFORNIA 96044 
[916] 475-3428 

ALL RIGHTS RESERVED 

CALL OR WRITE FOR HELP, BUG REPORTS, LICENSING, ETC. 



REM MAIN PROGRAM BLOCK 



GOSUB 1310 
GOSUB 1570 
END 



:REM 
:REM 



PACK 'EM IN 
SAVE IT ALL 



REM PACK 'EM IN 

RESTORE 1400 

FOR N = 1 TO 22 

: N$ = STR$ (N) 

: READ AD$ : AD = DEC ( AD$ ) 

: BLOAD ("S/M HELP" + N$) ,U9,B1 ,P(AD) 

: BANK 1 : POKE AD + 1016, 240 : BANK 15 

: NEXT 

DATA "8000", "8400", "8800", "8C00" 
DATA "A000", "A400", "A800", "AC00" 
DATA "B000", "B400", "B800" 
DATA "C000", "C400", "C800", "CC00" 
DATA "EOO0", "E400", "E800", "EC00" 
DATA "F000", "F400", "F800" 

BLOAD "FINGER CURSOR", U9, B1 , P48128 
BLOAD "FINGER CURSOR", U9, B1 , P64512 

RETURN 



:REM PREP FOR ADDRESS DATA 

:REM READ IN 22 HELP SCREENS 

:REM STRINGIZE THE NUMBER 

:REM GET ADDRESS & DECIMIZE 

:REM LOAD NTH SCREEN THERE 

:REM ADD SPRITE DATA POINTR 



:REM ADDRESSES TO LOAD THE 
:REM ... 22 HELP SCREENS 



:REM SPRITE TO QUADRANT 3 
:REM SPRITE TO QUADRANT 4 



REM SAVE IT ALL 

REM THAT'S FROM $18000 THRU $1FC3F 

PRINT "INSERT RECEIVING DISK. PRESS A KEY TO CONTINUE 
GETKEY DM$ 

BSAVE "@S/M HELP PACK", U9, B1 , P32768 TO P64576 



" ; :REM PROMPT 
REM WAIT FOR KEYPRESS 



:REM SAVE THE BLOCK 



Fig. 16-3. Source code for S/M Help Packer. 
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1610 
1620 
1630 
1640 
1650 



PRINT "DS"DS" 
CATALOG U9 

RETURN 



DS.$"DS$ 



:REM 
:REM 



PRINT DISK STATUS 
PRINT A CATALOG 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 



REM 

REM 

REM 

REM 
REM 

REM 
REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 



PROGRAM IDENTIFICATION 

MAKE S/M VARS 

CREATES THE FILE S/M VARS 

S/M VARS IS A FILE OF VARIABLE INITIALIZERS 
... FOR THE PROGRAM SOUND/MUSIC LAB 

VERSION : 1 . 00 

TIMESTAMP : 10:07 AM PST SEPTEMBER 18, 1986 

PROGRAMMED BY STAN KRUTE 

COPYRIGHT (C) 1986 BY STAN KRUTE' S HACKER & NERD 

18617 CAMP CREEK ROAD 
HORNBROOK, CALIFORNIA 96044 
[916] 475-3428 

ALL RIGHTS RESERVED 

CALL OR WRITE FOR HELP, BUG REPORTS, LICENSING, ETC. 



REM MAIN PROGRAM BLOCK 



GOSUB 1310 
GOSUB 1390 
GOSUB 2820 
END 



:REM OPEN THE FILE 

:REM WRITE THE VALUES 

:REM CLOSE THE FILE 

:REM BYE BYE 



REM OPEN THE FILE 



INPUT "DEVICE NUMBER "; DN$ 

DN = VAL ( DN$ ) 

OPEN 12, (DN), 12, "e:S/M VARS,S,W" 

RETURN 



:REM GET DEVICE NUMBER 
:REM VALUIZE ENTERED STRING 
:REM OPEN A FRESH OUTPUT FILE 



REM WRITE THE VALUES 



ZR$ = "0000000000" 
PRINT* 12, ZR$ 



:REM 10 ZEROES 
:REM TO DISK 



RESTORE 1500 :REM PREP TO READ 

FOR N = 1 TO 7 :REM SIZE OF FRAME DATA BLOCK, TITLE AREA *, AND 

READ DZ (N), TT (N), FT$ (N) :REM ... DESCRIPTIVE STRING FOR 

PRINT* 12, DZ (N) :REM ... SEVEN FRAME TYPES 

PRINT* 12, TT (N) :REM TO DISK 

PRINT* 12, FT$ (N) 

NEXT :REM ... SEVEN FRAME TYPES 

DATA 8, 1, "SOUND", 1, 10, "PLAY" 

DATA 7, 12, "ENVELOPE", 1, 83, "VOLUME" 

DATA 1, 85, "TEMPO", 5, 87, "FILTER" 

DATA 1 , 93, "FRAME" 



Fig. 16-4. Source code for Make S/M Vars. 
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1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 



RESTORE 1620 :REM 

DIM HA (13) :REM 

FOR N = TO 13 :REM 
: READ HA (N) 

: PRINT* 12, HA (N) 
: NEXT 



PREP TO READ 

A LARGE ARRAY 

SET ASSEMBLY LANGUAGE HELPER ADDRESSES 

:REM READ DATA ELEMENT 

:REM WRITE DATA ELEMENT TO DISK 



DATA 4864, 4933, 6932, 5224 

DATA 47, 22, 15, 25 

DATA 5394, 5318, 51, 25 

DATA 5679, 5459 



:REM HELPER ADDRESS DATA ELEMENTS 



RESTORE 1760 :REM 
DIM PF ( 21 , 3 ) :REM 
FOR N = TO 21 :REM 
FOR P = TO 3 

READ PF ( N, P ) 
PRINT)? 12, PF ( N, P 
NEXT 
NEXT 



PREP TO READ 

A LARGE ARRAY 

SET PARAMETER FETCH ARRAY 



:REM 
:REM 



READ DATA ELEMENT 

WRITE DATA ELEMENT TO DISK 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA , 
DATA , 



1, 3, 5, 1 

0, 65535, 7, 5 

0, 32767, 13, 5 

0, 2, 19, 1 

0, 65535, 21 , 5 

0, 32767, 27, 5 

3, 33, 1 

4095, 35, 4 



:REM PARAMETER FETCH DATA 

:REM 76 4-TUPLES OF THE FORM 

:REM ... MINIMUM VALUE, MAXIMUM VALUE, 

:REM ... START COLUMN, WIDTH 



:REM 
:REM 



FIRST GROUP IS FOR SOUND PARAMETERS 
( 0..7 ) 



0, 

o, 



DATA 
DATA 
DATA , 
DATA , 
DATA , 



15, 3, 

15, 5, 

15, 7, 

15, 9, 

4, 11, 



DATA 0, 4095, 12, 4 



DATA , 
DATA 1 , 



DATA 
DATA 
DATA 
DATA 
DATA 

DATA 



0, 
0, 
0, 
0, 
0, 



15, 18, 3 

255, 23, 3 

2047, 28, 4 

1, 33, 1 

1, 34, 1 

1, 35, 1 

15, 37, 2 

1000, 23, 4 



:REM ENVELOPE PARAMETERS 
:REM ( 8.. 13 ) 



:REM VOLUME ( 14 ) 

:REM TEMPO ( 15 ) 

:REM FILTER PARAMETERS 

:REM ( 16.. 20 ) 



;REM FRAME NUMBER ( 21 ) 



RESTORE 2090 :REM PREP TO READ 

FOR N = TO 5 :REM ENVELOPE PARAMETER STRINGS 

: READ EW$ (N) :REM READ VALUE 

: PRINT* 12, EW$ (N) :REM TO DISK 

: NEXT 

DATA "ATTACK", "DECAY", "SUSTAIN" 
DATA "RELEASE", "WAVEFORM", "PULS WDTH" 

RESTORE 2190 

FOR N = TO 7 :REM SOUND PARAMETER STRINGS 

: READ DS ( N ) , SW$ ( N ) :REM READ VALUES 

: PRINT* 12, DS ( N ) :REM TO DISK 

: PRINT* 12, SW$ ( N ) 

: NEXT 

DATA 1, "VOICE", 1500, "FREQUENCY", 10, "DURATION", 0, "DIRECTION" 
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2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 



DATA 0, "MINM FRQCY", 0, "SWEEPSTEP", 1, "WAVEFORM", 2048, "PULSEWIDTH" 

RESTORE 2300 :REM PREP TO READ 

FOR N = TO 9 :REM SET DEFAULT ENVELOPES 

FOR P = TO 5 :REM GET IT 

READ DE% ( N, P ) :REM READ VALUE 

PRINT* 12, DE% ( N, P ) :REM TO DISK 
NEXT 
NEXT 



DATA , 
DATA 12, 
DATA , 
DATA 

DATA 
DATA 
DATA 
DATA 



0, 
9, 
0, 
0, 
0, 



9, 0, 

0, 12, 

0, 15, 

5, 5, 



DATA 8 , 
DATA , 



4, 
9, 
9, 
9, 
9, 
9, 



4, 
2, 
0, 
9, 
4, 
0, 



0, 2, 1536 :REM DEFAULT ENVELOPE 

0,1, :REM E1 

0, 0, :REM E2 

0, 3, :REM E3 

0, 0, :REM E4 

1,1, :REM E5 

0, 2, 512 :REM E6 

0, 2, 2048 :REM E7 

1, 2, 512 :REM E8 
0, 0, :REM E9 

:REM PREP TO READ 



RESTORE 2470 

FOR N = TO 4 

: READ FW$ (N) :REM PICK UP A STRING 

: PRINT* 12, FW$ (N) :REM TO DISK 

: NEXT 

DATA "FREQUENCY", "LO-PASS", "BAND-PASS", "HI -PASS", "RESONANCE" 



RESTORE 2570 



:REM PREP TO READ 



FOR N = 1 TO 5 

FOR P = 1 TO 3 

READ HP ( N, P ) 
PRINT* 12, HP ( N, P 
NEXT 

NEXT 

DATA 1 , 23 , 5 , 9,23,8 
DATA 20, 23, 4, 27, 23, 4 
DATA 36, 23, 3 

RESTORE 2690 

DIM HK (22), HQ (22) 

FOR N = 1 TO 22 

READ HK (N), HQ (N) 

PRINT* 12, HK (N) 

PRINT* 12, HQ (N) 

NEXT 



:REM 
:REM 



GET A HELP SCREEN INVERSION PARAMETER 
TO DISK 



:REM FOR EACH OF 5 HELP SCREEN BUTTONS 
:REM ... THERE'S A LEFTMOST COLUMN, ROW, 
:REM ... AND WIDTH 

:REM PREP TO READ 

:REM BIG ARRAYS 

:REM FOR 22 HELP SCREENS, 

:REM ... GRAB K-BOUNDARY AND QUADRANT 

:REM TO DISK 



DATA 0,1, 
DATA 8 , 1 , 
DATA 12, 1, 
DATA 0, 0, 
DATA 8, 0, 
DATA 12, 0, 



RETURN 



1, 1, 

9, 1, 

13, 1, 

1, 0, 

9, 0, 

13, 0, 



2, 1, 

10, 1, 

14, 1 

2, 0, 

10, 0, 

14, 



3, 1 
11, 1 



:REM K-BOUNDARY, QUADRANT 



3, 
11, 



REM 



CLOSE THE FILE 



PRINT* 12 
CLOSE 1 2 
RETURN 



:REM 
:REM 



BURP THE BUFFER 
CLOSE THE FILE 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 



REM 

REM 

REM 

REM 
REM 

REM 
REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 



PROGRAM IDENTIFICATION 

MAKE 40C SCREENS 

MAKES 40 -COLUMN SCREEN FILES 

DESIGNED TO BE USED ON A TWO-MONITOR ( ONE 40-COLUMN, 
. . . ONE 80-COLUMN ) SYSTEM 



VERSION : 
TIMESTAMP 



1.00 

2:48 PM PST 



SEPTEMBER 19, 1986 



PROGRAMMED BY STAN KRUTE 

COPYRIGHT (C) 1986 BY STAN KRUTE 'S HACKER & NERD 

18617 CAMP CREEK ROAD 
HORNBROOK, CALIFORNIA 96044 
[916] 475-3428 

ALL RIGHTS RESERVED 

CALL OR WRITE FOR HELP, BUG REPORTS, LICENSING, ETC. 



REM MAIN PROGRAM BLOCK 



GOSUB 1310. 
GOSUB 1640 
GOSUB 1750 :REM 



:REM GET READY 
:REM RUN IT 

CLEAN UP 



END 



:REM WE GONE 



REM GET READY 

SLOW :REM 

TRAP 3230 :REM 

GRAPHIC 5,1 :REM 

COLOR 0,1 : COLOR 4,1 :REM 



FINISHED - 
CM$ = "ECSLPQ" 

RN$ = CHR$ (18) 
RF$ - CHR$ (146) 

CR$ = CHR$ (13) 
UP$ = CHR$ (145) 
RT$ = CHR$ (29) 



:REM 
:REM 

:REM 
:REM 

:REM 
:REM 
:REM 



MAKE SURE WE'RE VISIBLE 

SET ERROR HANDLER 
80-COLUMN TEXT, CLEARED 
BLACK BACKGROUND & BORDER 

NOT DONE YET 

FOR PARSING COMMANDS 

REVERSE ON 
REVERSE OFF 

CARRIAGE RETURN 
CURSOR UP 
CURSOR RIGHT 



MR$ = RT$ + RT$ + RT$ + RT$ 
MR$ = MR$ + MR$ + MR$ + MR$ 



EE$ = CHR$ (27) + "§" 



:REM 



DN = PEEK (186) 

BLOAD "40C EDIT", U (DN) 

BLOAD "TEXT DUMPS", U (DN) 

R40 = : C40 = 
GOSUB 1820 

RETURN 



:REM STRING OF 16 CURSOR RIGHTS 

ERASES TO END OF SCREEN 

:REM DEVICE WE LOADED FROM 

:REM THE EDITING ROUTINE 

:REM THE SCREEN PRINTING ROUTINE 

:REM INIT 40-COLUMN CURSOR POSITION 
:REM PRINT CHOICES 



REM RUN IT 



Fig. 16-5. Source code for Make 40C Screens. 
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1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 



GETKEY KP$ :REM GET KEYPRESS 

CM = INSTR ( CM$, KP$ ) + 1 :REM FIGURE COMMAND CODE 

ON CM GOSUB 1990, 2100, 2260, 2360, 2880, 3070, 3150 :REM BRANCH ON CODE 

IF FINISHED THEN RETURN : ELSE 16 40 :REM LEAVE OR DO MORE 



REM CLEAN UP 



GRAPHIC 5,0 
FAST 

RETURN 



:REM 
:REM 



BACK TO 80 -COL SCREEN 
BACK UP TO SPEED 



REM PRINT CHOICES 



GRAPHIC 5, :REM 80 -COLUMN SCREEN 



PRINT "MAKE 40C SCREENS" : PRINT 

PRINT , , RN$ "E" RF$ "DIT THE SCREEN" 

RN$ "C" RF$ "LEAR THE SCREEN" 

RN$ "S" RF$ "AVE THE SCREEN" 

RN$ "L" RF$ "OAD THE SCREEN" 

RN$ "P" RF$ "RINT THE SCREEN" 

RN$ "Q" RF$ "UIT THE PROGRAM" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"YOUR CHOICE 



RETURN 



REM BAD CHOICE 



PRINT "BAD CHOICE" :REM FEEDBACK 

SLEEP 1 :REM PAUSE 

CHAR , 14, 15, EE$ :REM ERASE FEEDBACK 

PRINT "PLEASE TRY ONE OF THE LIT-UP LETTERS" 

SLEEP 1 :REM PAUSE 

CHAR , 14, 15, EE$ :REM ERASE FEEDBACK 

RETURN 



:REM FEEDBACK 



REM EDIT COMMAND — 

PRINT "EDIT THE SCREEN — 



PRESS SHIFT-RETURN TO END" 



:REM FEEDBACK 



RW = PEEK (235) : CM = PEEK (236) 
POKE 235, R40 : POKE 236, C40 

SYS 4864 

R40 = PEEK (235) : C40 = PEEK (236) 
POKE 235, RW : POKE 236, CM 



:REM SAVE 80 -COLUMN CURSOR 

:REM SET 40 -COLUMN CURSOR 

:REM CALL THE EDITING ROUTINE 

:REM SAVE 40 -COLUMN CURSOR 

:REM RESTORE 80 -COLUMN CURSOR 



CHAR , 14, 15, EE$ 

RETURN 



:REM ERASE FEEDBACK 



REM CLEAR COMMAND - 

PRINT "CLEAR THE SCREEN" 
GRAPHIC 0,1 
GRAPHIC 5,0 



: REM FEEDBACK 

:REM CLEAR 40 -COLUMN TEXT 

:REM BACK TO 80 -COLUMN 
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2290 SLEEP 1 :REM PAUSE 

2300 CHAR , 14, 15, EE$ :REM CLEAR FEEDBACK 

2310 RETURN 

2320 : 

2330 : 

2340 REM SAVE COMMAND 

2350 : 

2360 PRINT "SAVE THE SCREEN" : PRINT :REM FEEDBACK 

2370 : 

2380 GOSUB 2570 :REM FETCH FILE NAME AND DEVICE NUMBER 

2390 : 

2400 IF FD = THEN 2470 :REM IF PROBLEMS, JUST LEAVE 

2410 : 

2420 BSAVE ("@" + NM$), U(DN), P1024 TO P2024 :REM SAVE THAT SCREEN 

2430 : 

2440 CHAR , 14, 15, EE$ :REM CLEAR FEEDBACK 

2450 PRINT DS$ :REM PRINT DISK STATUS 

2460 : 

2470 SLEEP 1 :REM PAUSE 

2480 CHAR , 14, 15, EE$ :REM CLEAR FEEDBACK 

2490 : 

2500 RETURN 

2510 : 

2520 : 

2530 REM FETCH FILE NAME AND DEVICE NUMBER 

2540 : 

2550 REM RETURNS A RESULT CODE IN FD : -1 IF OK, IF NOT 

2560 : 

2570 REM GET A FILE NAME, DEFAULTING TO LAST NAME USED 

2580 PRINT "NAME ? " NM$ CR$ UP$ LEFT$ ( MR$, 5 ) ; 

2590 INPUT NM$ 

2600 : 

2610 IF NM$ <> "" THEN 2700 :REM CONTINUE IF SOME NAME ENTERED 

2620 : 

2630 REM DEAL WITH NO FILE NAME 

2640 CHAR , 14, 15, EE$ :REM CLEAR FEEDBACK 

2650 PRINT "NO NAME. FILE SAVE ABORTED" :REM NEW FEEDBACK 

2660 FD = ;REM RESULT CODE NOT OKAY 

2670 RETURN .REM GET GONE 

2680 : 

2690 REM GET A DEVICE NUMBER, DEFAULTING TO LAST DEVICE NUMBER USED 

2700 PRINT "DEVICE NUMBER ?" STR$ ( DN ) CR$ UP$ LEFT$ ( MR$, 14) ; 

2710 INPUT DN$ 

2720 : 

2730 DN = VAL (DN$) :REM VALUIZE THE DEVICE NUMBER 

2740 IF DN >= 8 AND DN <= 11 THEN 2820 :REM CONTINUE IF REASONABLE 

2750 : 

2760 REM DEAL WITH LOUSY DEVICE NUMBER 

27 70 CHAR , 14, 15, EE$ :REM CLEAR FEEDBACK 

2780 PRINT "BAD DEVICE NUMBER. FILE SAVE ABORTED" :REM NEW FEEDBACK 

2790 FD = :REM RESULT CODE NOT OKAY 

2800 RETURN :REM GET GONE 

2810 : 

2820 FD = -1 :REM RESULT CODE OKAY 

2830 RETURN :REM BYE BYE 

2840 : 

2850 : 

2860 REM LOAD COMMAND 

2870 : 

2880 PRINT "LOAD THE SCREEN" : PRINT :REM FEEDBACK 

2890 : 

2900 GOSUB 2570 :REM FETCH FILE NAME AND DEVICE NUMBER 

2910 : 

2920 IF FD = THEN 2990 :REM IF PROBLEMS, JUST LEAVE 

2930 : 
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2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 



BLOAD <NM$), U(DN) 

CHAR , 14, 15, EE$ 
PRINT DS$ 

SLEEP 1 

CHAR , 14, 15, EE$ 

RETURN 



REM PRINT COMMAND 



:REM LOAD THAT SCREEN 

:REM CLEAR FEEDBACK 

:REM PRINT DISK STATUS 

:REM PAUSE 

:REM CLEAR FEEDBACK 



PRINT "PRINT THE 40 -COLUMN SCREEN" 

SYS 2975 

CHAR , 14, 15, EE$ 

RETURN 



: REM FEEDBACK 

:REM CALL DUMP 40 ROUTINE 

:REM ERASE FEEDBACK 



REM QUIT COMMAND 



PRINT "QUIT THE PROGRAM" : PRINT 
PRINT "THANKS FOR THE WORKOUT" 
FINISHED = -1 

RETURN 



REM ERROR HANDLER 



CHAR , 14, 15, EE$ :REM CLEAR FEEDBACK 

PRINT ERR$ (ER) " IN" STR$ (EL) :REM PRINT ERROR MESSAGE 

SLEEP 2 :REM PAUSE 

CHAR , 14, 15, EE$ :REM CLEAR FEEDBACK 

RESUME NEXT :REM RESUME EXECUTION 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



Program Identification 

40C EDIT 
Lets you edit the standard 40 -column text screen 
Lives in RAM Bank at addresses $1300-$1484 
To call the routine 



To leave the routine 



SYS 4864 



press SHIFT/RETURN 



Version : 
Times tamp 



1.00 

2:53 PM PST 



September 19, 1986 



Programmed by Stan Krute 

Copyright (C) 1986 by Stan Krute 's Hacker & Nerd 

18617 Camp Creek Road 
Hornbrook, California 96044 
[916] 475-3428 

All rights reserved 

Call or write for help, bug reports, licensing, etc. 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
» 
* 
* 
* 
* 
* 



Fig. 16-6. Source code for 40C Edit. 
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28 
29 










30 










31 


*_ _. 




-- Constants 


32 










33 


* Commodore ASCII codes 




34 










35 


CrsrDnCAC = 


17 




code for cursor down 


36 


CrsrLfCAC = 


157 




code for cursor left 


37 


CrsrRtCAC = 


29 




code for cursor right 


38 


CrsrUpCAC = 


145 




code for cursor up 


39 


DeleteCAC = 


20 




code for delete 


40 


InsertCAC = 


148 




code for insert 


41 


ShftRtrnCAC = 


141 




code for a shifted return 


42 


RvsOnCAC = 


18 




code for reverse on 


43 


RvsOffCAC = 


146 




code for reverse off 


44 










45 










46 


* editor variables 






47 










48 


CurRow = 


$EB 


J 


current cursor row 


49 


CurCol = 


$EC 


i 


current cursor column 


50 


RvsFlag = 


$P3 


} 


reverse mode flag 


51 










52 










53 


* poke codes 








54 










55 


SpacePC = 


32 


i 


code for a space 


56 










57 










58 


* ROM routines — documented 


59 










60 


Getln = 


$FFE4 


i 


read buffered data from 


61 






# 


. . . current input device 


62 










63 










64 


* screen stuff 






65 










66 


Top = 





f 


topmost row 


67 


Bottom = 


24 


} 


bottommost row 


68 


Left 





t 


leftmost column 


69 


Right 


39 


i 


rightmost column 


70 










71 










72 


* zero-page variables 






73 










74 


OurPtr = 


$FA 


i 


a general -purpose pointer 


75 










76 










77 


* 


Set Prot 






78 










79 


ORG 


$1300 


r 


that's 4864 in decimal 


80 










81 










82 


*_ _•- 




40CEdit •--■ • * 


83 










84 


* lets a user 


edit the 40-column text screen 


85 










86 


* allows the user to 


type characters and use the following 


87 


* ... special 


keys : 


insert 


delete, cursor keys, 


88 


* ... reverse 


on , and 


reverse off 


89 










90 


* the user leaves the 


editor by pressing shift-return 


91 










92 


* all registers are trashed 
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93 

94 40CEdit 

95 

96 :LoopTop 

97 * this is the top of the editing loop 
98 

99 * draw the editing cursor in its current position 
1300: 20 0E 13 100 JSR InvertCursor 

101 

102 :LookKey 

103 * look for a keypress 

1303: 20 E4 FF 104 JSR Getln ; look for keyboard input 

1306: F0 FB 105 BEQ :LookKey ; no keypress, so keep looking 

106 

107 * we got a keypress, so go deal with it 
1308: 20 1A 13 108 JSR DealKey 

109 

110 * if we come back with Carry set, do an exit 

111 * otherwise, back up to top of loop 
130B: 90 F3 112 BCC :LoopTop 

113 

114 * return from 40CEdit 
130D: 60 115 RTS 
116 
117 
118 * InvertCursor 

119 

120 * invert the cursor at its current location 

121 

1 22 InvertCursor 

123 

124 * set pointer to start of cursor row 
130E: 20 B6 13 125 JSR SetPtr 

126 

127 * set index to cursor column 
1311: A4 EC 128 LDY CurCol ; grab cursor column 

129 

130 * grab poke code, invert it, store it back 
1313: B1 FA 131 LDA (OurPtr),Y ; grab poke code 

132 
1315: 49 80 133 EOR #%1 0000000 ; flip-flop hi bit to invert 

134 
1317: 91 FA 135 STA (OurPtr),Y ; store it back 

136 

137 * return from InvertCursor 
1319: 60 138 RTS 

139 

140 

141 * DealKey 

142 

143 * deal with a keypress 

144 

145 * upon entry, A- holds the keypress' C-ASCII code 

146 

147 * upon exit, all registers trashed 

1 48 * cursor is erased 

149 * Carry flag set signals exit time 

150 * Carry flag clear signals edit some more 
151 

1 52 DealKey 
153 

154 * park the character code 
131A: 48 155 PHA 

156 
157 * erase the cursor at its present position 
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CMP 


#32 


BCC 


:TestTwo 


CMP 


#128 


BCS 


:TestTwo 



131B: 20 OE 13 158 JSR InvertCursor 

* get the code back for testing 
PLA 

:TestOne 

* is it in printable range 32.. 127 ? 

! jump if 0..31 
; jump if > 127 

: Print 

* yes, it's in printable range 32.. 127 or 160.. 255 

* go print it 
JSR PrintChar 

* signal for more editing and leave 
CLC 
RTS 

:TestTwo 

* is it in printable range 160.. 255 ? 
CMP #160 ; check it out 
BCS : Print ; if so, print it 

:CrsUpTest 

* is it a cursor-up keypress ? 
CMP #CrsrUpCAC ; check it out 
BNE :CrsDnTest ; if not, next test 

* yes , it ' s a cursor-up keypress 

* adjust the cursor position upwards 
JSR CursUp 

* signal for more editing and leave 
CLC 
RTS 

:CrsDnTest 

* is it a cursor-down keypress ? 
CMP #CrsrDnCAC ; check it out 
BNE :CrsLfTest ; if not, next test 

* yes, it's a cursor-down keypress 

* adjust the cursor position downwards 
JSR CursDwn 

* signal for more editing and leave 
CLC 
RTS 

:CrsLfTest 

* is it a cursor-left keypress ? 
CMP #CrsrLfCAC ; check it out 
BNE :CrsRtTest ; if not, next test 

* yes, it's a cursor-left keypress 

* adjust the cursor position leftwards 
JSR CursLft 

* signal for more editing and leave 
CLC 
RTS 









159 








160 


131E: 


68 




161 
162 
163 
164 


131F: 


C9 


20 


165 


1321: 


90 


09 


166 


1323: 


C9 


80 


167 


1325: 


B0 


05 


168 
169 
170 
171 
172 


1327: 


20 


86 13 


173 
174 
175 


132A: 


18 




176 


132B: 


60 




177 
178 
179 
180 


132C: 


C9 


A0 


181 


132E: 


B0 


F7 


182 
183 

184 
185 


1330: 


C9 


91 


186 


1332: 


DO 


05 


187 
188 
189 
190 


1334: 


20 


16 14 


191 
192 
193 


1337: 


18 




194 


1338: 


60 




195 
196 
197 
198 


1339: 


C9 


11 


199 


133B: 


DO 


05 


200 
201 
202 
203 


133D: 


20 


09 14 


204 
205 
206 


1340: 


18 




207 


1341: 


60 




208 
209 

210 
211 


1342: 


C9 


9D 


212 


1344: 


DO 


05 


213 
214 
215 
216 


1346: 


20 


FB 13 


217 
218 
219 


1349: 


18 




220 


134A: 


60 




221 
222 
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223 


:CrsRtTest 








224 


* is it a cursor-right keypress ? 


134B: 


C9 


1D 


225 


CMP #CrsrRtCAC ; check it out 


134D: 


DO 


05 


226 
227 
228 
229 


BNE :InsrTest j if not, next test 

* yes, it's a cursor -right keypress 

* adjust the cursor position rightwards 


134F: 


20 


EB 13 


230 
231 
232 


JSR CursRit 
* signal for more editing and leave 


1352: 


18 




233 


CLC 


1353: 


60 




234 
235 
236 
237 


RTS 

:InsrTest 

* is it an insert keypress ? 


1354: 


C9 


94 


238 


CMP #InsertCAC ; check it out 


1356: 


DO 


05 


239 
240 
241 
242 


BNE :DeleTest ; if not, next test 

* yes, it's an insert keypress 

* go deal with it 


1358: 


20 


9C 13 


243 
244 
245 


JSR Insert 
* signal for more editing and leave 


135B: 


18 




246 


CLC 


135C: 


60 




247 
248 
249 
250 


RTS 

:DeleTest 

* is it a delete keypress ? 


135D: 


C9 


14 


251 


CMP #DeleteCAC ; check it out 


135F: 


DO 


05 


252 
253 
254 
255 


BNE :RvsOnTest ; if not, next test 

* yes, it's a delete keypress 

* go deal with it 


1361: 


20 


C3 13 


256 
257 
258 


JSR Delete 
* signal for more editing and leave 


1364: 


18 




259 


CLC 


1365: 


60 




260 
261 
262 
263 


RTS 

:RvsOnTest 

* is it a reverse-on keypress ? 


1366: 


C9 


12 


264 


CMP #RvsOnCAC ; check it out 


1368: 


DO 


08 


265 
266 
267 


BNE :RvsOffTest; if not, next test 
* adjust the reverse flag 


136A: 


A5 


F3 


268 


LDA RvsFlag ; grab it 


136C: 


09 


80 


269 


ORA #%1 0000000 ; set hi bit 


136E: 


85 


F3 


270 
271 
272 


STA RvsFlag ? store it back 
* signal for more editing and leave 


1370: 


18 




273 


CLC 


1371: 


60 




274 
275 
276 
277 


RTS 

:RvsOffTest 

* is it a reverse-off keypress ? 


1372: 


C9 


92 


278 


CMP lifRvsOffCAC j check it out 


1374: 


DO 


08 


279 
280 
281 


BNE :ExiTest ; if not, next test 
* adjust the reverse flag 


1376: 


A5 


F3 


282 


LDA RvsFlag ; grab it 


1378: 


29 


7F 


283 


AND #%01111111 ; clear hi bit 


137A: 


85 


F3 


284 
285 
286 


STA RvsFlag ; store it back 
* signal for more editing and leave 


137C: 


18 




287 


CLC 



312 



137D: 


60 




288 
289 
290 

291 


137E: 


C9 


8D 


292 


1380: 


DO 


02 


293 
294 
295 
296 


1382: 


38 




297 


1383: 


60 




298 
299 
300 
301 
302 
303 


1384: 


18 




304 


1385: 


60 




305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 


1386: 


20 


21 14 


322 
323 
324 


1389: 


A6 


F3 


325 


138B: 


FO 


02 


326 
327 
328 


138D: 


09 


80 


329 
330 
331 
332 


138F: 


48 




333 
334 
335 


1390: 


20 


B6 13 


336 
337 
338 


1393: 


A4 


EC 


339 
340 
341 


1395: 


68 




342 


1396: 


91 


FA 


343 
344 
345 
346 


1398: 


20 


EB 13 


347 
348 
349 


139B: 


60 




350 
351 
352 



RTS 

:ExiTest 

* is it a shift-return combination 

CMP (SIShftRtrnCAC? check it out 
BNE :KPNoGood ; if not, jump 

* yes, it's a shift-return combination 

* signal an exit and leave 

SEC 
RTS 

:KPNoGood 

* the keypress is not one we deal with 

* signal for more editing and leave 

CLC 

RTS 



* PrintChar 

* prints a character to the screen 

* moves the cursor one position right, with wraparound 

* upon entry, the character's C-ASCII code is in 

* ... the A- register 

* upon exit, all registers trashed 
PrintChar 

* fetch the character's poke code 

JSR CAsc2Pok1 

* if reverse flag is set, reverse the image 

LDX RvsFlag ; non-zero says set 
BEQ :StorPoke ; jump if not set 

* it's set, so reverse by setting hi bit 

ORA #%1 0000000 

: StorPoke 

* store poke code on stack 

PHA 

* set pointer to start of cursor row 

JSR SetPtr 

* set index to cursor column 

LDY CurCol 

* store that poke code 

PLA ; back from stack 

STA (OurPtr),Y ; store it 

* move cursor location to the right, dealing 

* ... with any necessary wraparound issues 

JSR CursRit 

* return from PrintChar 

RTS 
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353 


* 


Insert 








354 












355 


* 


deal with a press of the insertion key 








356 












357 


* 


moves all characters from the cursor thru to the end 








358 


* 


... of its row one position to the right 








359 


* 


... ( the last character gets bumped into its next 








360 


* 


existence ) 








361 












362 


* 


puts a space character at the cursor position 








363 












364 


* 


upon exit, all registers trashed 








365 












366 


Insert 








367 












368 


* 


set pointer to start of cursor row 


139C: 


20 


B6 13 


369 
370 




JSR SetPtr 








371 


* 


set index to next-to-rightmost column 


139F: 


A0 


26 


372 
373 




LDY #Right-1 








374 


* 


enter loop at bottom test 


13A1: 


DO 


09 


375 
376 




BNE :LoopTest ; always 








377 


: LoopTop 








378 


* 


move a character to the right 


13A3: 


B1 


FA 


379 




LDA (OurPtr),Y ; grab it 


13A5: 


C8 




380 




INY ; change position 


13A6: 


91 


FA 


381 
382 




STA (OurPtr),Y ; store it 








383 


* 


adjust our index 


13A8: 


88 




384 




DEY ; end up one to left 


13A9: 


88 




385 
386 




DEY 








387 


* 


take care of the leftmost case 


13AA: 


30 


04 


388 

389 




BHI : StorSpace 








390 


: 


CoopTest 








391 


* 


see if we're done yet 


13 AC: 


C4 


EC 


392 




CPY CurCol ; to left of cursor yet ? 


13AE: 


BO 


F3 


393 
394 




BCS : LoopTop ; if not, back up 








395 


: 


StorSpace 








396 


* 


store a space at cursor position 


13B0: 


A9 


20 


397 




LDA #SpacePC ; code for a space 


13B2: 


C8 




398 




INY ; aim back at cursor column 


13B3: 


91 


FA 


399 
400 




STA (OurPtr),Y ; store that space 








401 


* 


return from Insert 


13B5: 


60 




402 
403 
404 




RTS 








405 

406 


$ 




















407 


* 


set OurPtr to start of cursor ' s row 








408 












409 


* 


trashes A- and X- registers 








410 












411 


SetPtr 


13B6: 


A6 


EB 


412 




LDX CurRow ; grab row 


13B8: 


BD 


53 14 


413 




LDA RowsLo,X ; index into table 


13BB: 


85 


FA 


414 




STA OurPtr ; store lo-byte 


13BD: 


BD 


6C 14 


415 




LDA RowsHi,X 


13C0: 


85 


FB 


416 
417 




STA OurPtr+1 ; store hi-byte 
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13C2: 60 418 RTS ; return from SetPtr 
419 
420 
421 * Delete * 

422 

423 * deal with a press of the deletion key 

424 

425 * moves all characters from the cursor position thru to 

426 * ... the end of the cursor's row one position to the left 

427 * ... ( the character to the left of the cursor gets 

428 * ... bumped into its next existence ) 
429 

430 * puts a space character at the end of the row 
431 

432 * moves cursor one spot to left 
433 

434 * upon exit, all registers trashed 
435 

436 Delete 
437 

438 * set pointer to start of cursor row 
13C3: 20 B6 13 439 JSR SetPtr 

440 

441 :SlideLeft 

442 * perform a deletion by sliding all the characters from 

443 * ... cursor position to last char one position to the left 
444 

445 * initialize for the loop 
13C6: A4 EC 446 LDY CurCol ; we'll start at the cursor 

447 

448 * check for a leftmost cursor 
13C8: DO 0D 449 BNE :SLTop ; jump if not in leftmost column 

450 

451 * special case a leftmost cursor 
13CA: 20 PB 13 452 JSR CursLft ; move cursor to left 

13CD: 20 B6 13 453 JSR SetPtr ; set pointer to start of that ro 

w 

13D0: A4 EC 454 LDY CurCol ; index row's last char 

13D2: A9 20 455 LDA (SfSpacePC ; get that character code 

13D4: 91 FA 456 STA (OurPtr),Y ; store the space 

13D6: 60 457 RTS ; return from Delete 

458 

459 :SLTop 

460 * the top of the sliding loop 

461 * slide an exit string character to the left 
13D7: B1 FA 462 LDA (OurPtr),Y ; grab a char 

13D9: 88 463 DEY ; move one position left 

13DA: 91 FA 464 STA (OurPtr),Y ; store a char 

465 
13DC: C8 466 INY ; move back to target 

13DD: C8 467 INY ; move on to next target 

468 

469 * bottom of the :SlideLeft loop 
13DE: CO 28 470 :SLBotm CPY #Right+1 ; are we done sliding ? 
13E0: DO F5 471 BNE :SLTop ; no, so back to loop top 

472 

473 * okay, we've slid stuff over to make room, so now 

474 * ... we can add a spacey character to the row 
13E2: 88 475 DEY ; back to target 

13E3: A9 20 476 LDA #SpacePC ; get that character code 

13E5: 91 FA 477 STA (OurPtr),Y ; store the space 

478 

479 * move cursor to the left, dealing with wraparound 
13E7: 20 FB 13 480 JSR CursLft 

481 
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482 :Bye 

483 * return from Delete 
13EA: 60 484 RTS 

485 
486 

487 * CursRit 

488 

489 * move the cursor to the right, dealing with wraparound 

490 

491 * upon exit, X- register is trashed 

492 

493 CursRit 

494 

495 * check current cursor column to see if 

496 * ... we ' 11 need to deal with wraparound 



get current cursor column 
do we need to wraparound to the 
... screen's leftmost column ? 
no, so life is easy 



13EB: A6 EC 497 LDX CurCol 

13ED: E0 27 498 CPX #Right 

499 
13EF: DO 06 500 BNE :RtUpHz 

501 

502 * we need to wrap around horizontally 

503 * that means we also have to move down the screen 
13F1: 20 09 14 504 JSR CursDwn ; get down 

505 

506 * now let's horizontally wrap around to the 

507 * ... leftmost column 
13F4: A2 00 508 LDX #Left 

13F6: CA 509 DEX ; so we can slide thru 

51 ; . . . the next instruction 

511 

512 * move to the right by upping the horizontal coordinate 
13F7: E8 513 :RtUpHz INX 
13F8: 86 EC 514 STX CurCol ; store new cursor horizontal 

515 

51 6 * return from CursRit 
13FA: 60 517 RTS 

518 

519 

520 * CursLft 

521 

522 * move the cursor to the left, dealing with wraparound 

523 

524 * upon exit, X- register is trashed 

525 

526 CursLft 

527 

528 * check current cursor column to see if 

529 * ... we'll need to deal with wraparound 

13FB: A6 EC 530 LDX CurCol ; get current cursor column 

13FD: DO 06 531 BNE :LftDnHz j no wrap if non-zero 

532 

533 * we need to wrap around horizontally 

534 * that means we also have to move up the screen, 

535 * ... which is done by downing the vertical coordinate 
13FF: 20 16 14 536 JSR CursUp ; get up 

537 

538 * now let's horizontally wrap around to the 

539 * ... rightmost column 
1402: A2 27 540 LDX #Right 

1404: E8 541 INX ; so we can slide thru 

542 ; ... the next instruction 

543 

544 * move to the left by downing the column 

1405: CA 545 :LftDnHz DEX 

1406: 86 EC 546 STX CurCol ; store new cursor column 
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547 

548 * return from CursLft 
1408: 60 549 RTS 

550 
551 

552 * CursDwn 

553 

554 * move the cursor down a line, dealing with wraparound 

555 

556 * .upon exit, X- register is trashed 

557 

558 CursDwn 

559 

560 * check current cursor row to see if we'll have to 

561 * ... deal with wraparound 

1409: A6 EB 562 LDX CurRow } get current cursor row 

140B: E0 18 563 CPX #Bottom ; at bottom of rectangle ? 

140D: DO 03 564 BNE :CDOplt ; no, so no need to wrap 

565 

566 * we need to vertically wrap up to the topmost row 
140F: A2 00 567 LDX (?Top 

1411: CA 568 DEX ; so we can slide thru 

569 ; ... the next instruction 

570 

571 :CDUpIt 

572 * move down the screen by upping the cursor row 
1412: E8 573 INX ; up, down, it's all so 

574 ; ... confusing, eh ? 

1413: 86 EB 575 STX CurRow ; store new cursor row 

576 

577 * return from CursDwn 
1415: 60 578 RTS 

579 

580 

581 * CursUp * 

582 

583 * move the cursor up a line, dealing with wraparound 

584 

585 * upon exit, X- register trashed 

586 

587 CursUp 

588 

589 * check current cursor vertical to see if we'll have to 

590 * ... deal with wraparound 

1416: A6 EB 591 LDX CurRow ; get current cursor vertical 

1418: DO 03 592 BNE :COUpIt ; no need to wrap if not at top 

593 

594 * we need to vertically wrap to the bottommost row 
141 A: A2 18 595 LDX #Bottom 

141C: E8 596 INX ; so we can slide thru 

597 ; . . . the next instruction 

598 

599 :CUOpIt 

600 * move up the screen by downing the vertical coordinate 
141D: CA 601 DEX ; up, down, it's all so 

602 ; ... confusing, eh ? 

141E: 86 EB 603 STX CurRow ; store new cursor vertical 

604 

605 * return from :CursUp 
1420: 60 606 RTS 

607 

608 

609 * CAsc2Pok1 * 

610 

611 * transform Commodore ASCII code to Set 1 screen poke code 
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612 






613 






614 






615 






616 






617 






618 






619 






620 






621 






622 






623 






624 






625 


1421: 


C9 20 


626 


1423: 


BO 03 


627 
628 


1425: 


A9 20 


629 


1427: 


60 


630 
631 
632 


1428: 


C9 40 


633 


142A: 


BO 01 


634 
635 


142C: 


60 


636 
637 
638 


142D: 


C9 60 


639 


142F: 


BO 03 


640 
641 


1431: 


E9 3F 


642 
643 
644 
645 
646 


1433: 


60 


647 
648 
649 


1434: 


C9 80 


650 


1436: 


BO 03 


651 
652 


1438: 


E9 1F 


653 
654 
655 
656 
657 


143A: 


60 


658 
659 

660 


143B: 


C9 AO 


661 


143D: 


BO 03 


662 
663 


143F: 


A9 20 


664 


1441: 


60 


665 
666 
667 


1442: 


C9 CO 


668 


1444: 


BO 03 


669 
670 


1446: 


E9 3F 


671 
672 
673 
674 
675 


1448: 


60 


676 



* obviously, this would be faster with a 256-byte table, 

* ... but we're a bit squeezed for space — this code only 

* ... eats up 50 bytes, and ain't all THAT slow 

* upon entry, A- reg. holds a C-ASCII code [0..255] 

* upon exit, A- reg. holds a poke code [0..255] 

* X- and Y- registers are preserved 
CAsc2Pok1 

* C-ASCIIs 0..31 transform to pocode 32 
:Test1 CMP #32 ; test for 0..31 

BCS :Test2 ; not in range, do next test 



LDA 

RTS 



#32 



in range, so return 32 
outta here 



* C-ASCIIs 32.. 63 transform to pocodes 32.. 63 
:Test2 CMP #64 ; test for 32.. 63 

BCS :Test3 ; not in range, do next test 



RTS 



in range, so return as is 



* C-ASCIIs 64.. 95 transform to pocodes 



.31 



:Test3 



CMP 
BCS 



#96 
:Test4 



SBC #63 



RTS 



test for 64.. 95 

not in range, do next test 

in range, transform 64.. 95 
... to 0..31 by subtacting 64 
... (a clear Carry lets us 
skip a SEC step if we 
... just subtract 63 ) 
bye bye 



* C-ASCIIs 96.. 127 transform to pocodes 64.. 95 



:Test4 



CMP 
BCS 

SBC 



RTS 



#128 
: Test5 

#31 



test for 96.. 127 

not in range, do next test 

in range, transform 96.. 127 to 
... 64.. 95 by subtacting 32 
... (a clear Carry lets us 
skip a SEC step if we 
... just subtract 31 ) 
bye bye 



* C-ASCIIs 128.. 159 transform to pocode 32 
: Test5 CMP #160 ; test for 128.. 159 

BCS :Test6 ; not in range, do next test 



LDA 

RTS 



#32 



in range, so return 32 
bye bye 



♦ C-ASCIIs 160.. 191 transform to pocodes 96.. 127 

_ . - »« «-. - J A. f ... 4 £t\ 1 Q1 



:Test6 



CMP 
BCS 

SBC 



RTS 



#192 
:Test7 

#63 



test for 160.. 191 

not in range, do next test 

in range, transform 160.. 191 
... to 96.. 127 by subtacting 64 
... (a clear Carry lets us 
skip a SEC step if we 
... just subtract 63 ) 
bye bye 
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1449: C9 FF 

144B: FO 03 
144D: E9 7F 



144F: 60 



1450: A9 5E 
1452: 60 



1453 
1456 
1459 
145C 
145F 
1462 
1465 
1468 
146B 



146C 
146F 
1472 
1475 
1478 
147B 
147E 
1481 
1484 



00 28 50 
78 AO C8 
FO 18 40 
68 90 B8 
EO 08 30 
58 80 A8 
DO F8 20 
48 70 98 
CO 



04 04 04 

04 04 04 

04 05 05 

05 05 05 

05 06 06 

06 06 06 

06 06 07 

07 07 07 
07 



677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 



* C-ASCIIs 192.. 223 transform to pocodes 64.. 95 

* C-ASCIIs 224.. 254 transform to pocodes 96.. 126 

* ( notice that both ranges transform down by 128 ) 



:Test7 



CMP 



BEQ 



#255 



:Final 



SBC #127 



RTS 



test for only remaining value 
... that's not in one of these 
. . . ranges 
got it, so go transform it 

in range, transform 192.. 223 
to 64.. 95 and 224.. 255 to 
96.. 126 by subtracting 128 
( a clear Carry lets us 
skip a SEC step if we 
just subtract 127 ) 
git gone 



* C-ASCII 255 transforms to pocode 94 
:Final LDA #94 ; transform 255 to 94 
RTS ; that's all she wrote 



* screen address data 

* addresses of standard 40 -column text row starts 



RowsLo 



RowsHi 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 



00,28,50 
78,A0,C8 
F0,18,40 
68,90,B8 
E0,08,30 
58,80,A8 
D0,F8,20 
48,70,98 
CO 



04,04,04 
04,04,04 
04,05,05 
05,05,05 
05,06,06 
06,06,06 
06,06,07 
07,07,07 
07 



-End assembly, 389 bytes, Errors: 



SOUND/MUSIC LAB Variables 



Sheet 1 Of 3 



AD .... an area number 

AN .... an area number 

BL$ . . . string of blanks 

CE% (9,5) . current envelope arrays 

CF (5) . . . current filter array 

CH . . . . current help screen number 

Fig. 16-7. List of variables for Sound/Music Lab. 
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CM$ , 
CN . . 
CP . . 
CP$ . . 
CS(7) , 
CT . . 
CV . . 
D(8) . 
DE% (9,5) 
DN . . 
DS(7) . 
DZ(7) 
EMS . 
EN . . 
EV . . 
EV$ 
EW$ (6) 
FD(MD) 
FF . . . 
FF%(MF) 
FINISHED 
FR . . . 



current message 
a column 
cursor position 
current play string 
current sound array 
current tempo 
current volume 

data to go onto stack of frame data 
array of default envelope parameters 
drive number the program was loaded from 
array of default sound command parameters 
size of frame data for 7 command types 
error message 
envelope number 
entry value for parameter fetching 
string version of EV 
array of envelope parameter strings 
frame data stack 
former sound frame 

for each frame, offset into frame data stack 
boolean flags if we're ready to quit or not 
current sound frame 



SOUND/MUSIC LAB Variables 



Sheet 2 Of 3 



FS$(MS) 
FT$ . . 
FW$(5) 
HI . . 
H2 . . 
HA (14) 
HB . . 
HK(NH) 
HP (5,3) 
HQ(NH) 
HU . 
KP$ 
LB 
LBS 
MA 
MD 
MF 

MM 

MS 

N . 

NH 

P . 

PF(21,3) 

PH 

PN 

PS 



. array of frame strings 

. array of frame data type name strings 

. array of filter parameter label strings 

. a color 

. a color 

. array of S/M LAB HELP.O addresses 

. high byte, for pointer work 

. array of help screen memory K-boundaries 

. array of help screen button inversion parameters 

. array of help screen memory quadrants 

. a color 

. keypress 

. low byte, for pointer work 

. a label 

. area returned by a mouse click 

. maximum selector for array of frame data FD () 

. maximum number of frames, maximum selector for array of 

FDO pointers FF%() 

. area returned by a mouse click 

. maximum selector for array of frame strings FSS () 

. looping index 

. number of help screens 

. looping index 

. array of parameter fetch data 

. play window cursor horizontal position 

. parameter number for parameter fetching 

. parameter selector 
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PV 
PW 



play window cursor vertical position 
parameter width 



SOUND/MUSIC LAB Variables 



Sheet 3 Of 3 



RR 
RW 

SF 
SH 
SM 
SR 
SR%(9) 

SW$(7) 

T . 

T$ 

Tl 

T2 

T3 

T4 

TA 

TD 

TF 

TP 

TP$ 

TS 

TT(7) 

VC 

W 

WK$ 

XV 

XV$ 

YY 

ZR$ 



boolean recording result 

row for parameter fetching 

start frame 

string hot spot 

a strawman swapping tool 

starting row 

array of parameters for StrngRectEdit 

array of sound parameter label strings 

temporary real 

temporary string 

temporary real 

temporary real 

temporary real 

temporary real 

target area 

pointer to top of FD 

highest recorded frame and pointer to top of FF% 

temporary real 

temporary string 

pointer to top of FS$ () 

array of title area numbers for recordable commands 

fetched parameter validity code 

temporary width of a string 

local working string 

exit value from parameter fetching 

string version of XV 

during development, flag for loading S/M LAB HELP.O 

string of zeroes 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 



REM 

REM 

REM 

REM 
REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 



PROGRAM IDENTIFICATION 

SOUND/MUSIC LAB 

LETS YOU PLAY WITH BASIC SOUND AND MUSIC COMMANDS 

VERSION : 1.00 

TIMESTAMP : 11:33 PM PST SEPTEMBER 17, 1986 

PROGRAMMED BY STAN KRUTE 

COPYRIGHT (C) 1986 BY STAN KRUTE' S HACKER & NERD 

18617 CAMP CREEK ROAD 
HORNBROOK, CALIFORNIA 96044 
[916] 475-3428 

ALL RIGHTS RESERVED 

CALL OR WRITE FOR ASSISTANCE 



REM MAIN PROGRAM BLOCK 



Fig. 16-8. Source code for Sound/Music Lab. 
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1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 



GOSUB 1320 
DO 



: GOSUB 1480 
LOOP UNTIL FINISHED 



:REM SET UP THE LAB 

:REM LAB EVENT LOOP 



GOSUB 1640 
END 



:REM CLEAN UP THE LAB 
:REM BYE BYE 



REM SET UP THE LAB 



FAST :REM MOVE RIGHT ALONG 

BANK 15 :REM SYSTEM BANK 

TRAP 16240 :REM SET ERROR HANDLER 

GOSUB 1760 :REM CONFIGURE MEMORY 

GOSUB 1830 :REM INITIALIZE SOME VARIABLES 

GOSUB 2620 :REM RESET SOUND VARIABLES 

GOSUB 2930 :REM DRAW A FRESH SCREEN 

GOSUB 3090 :REM UPDATE THE SCREEN 

GOSUB 3200 :REM LOAD AND INSTALL BINARY FILES 

GOSUB 3300 :REM INITIALIZE CURSOR 

SLOW :REM BACK INTO SIGHT 

RETURN 



REM LAB EVENT LOOP 



IF PEEK ( HA (2) ) = THEN 1590 :REM SCAN FOR P-M BUTTON PRESS 
SYS HA (3), HA (4), HA (5) : RREG MA :REM FIND WHERE IT'S PRESSED 



IF MA = 
IF MA < 
IF MA < 
IF MA < 
ON (MA 



THEN 1480 :REM IF NOT IN A VALID AREA 

10 THEN 6040 :REM SOUND CLICK 

12 THEN 6720 :REM PLAY CLICK 

83 THEN 7320 :REM ENVELOPE CLICK 



RETURN 



REM CLEAN UP THE LAB 



82) GOTO 7950,7950,8370,8370,8790,8790,8790,8790,8790,8790,9310, 
9310,9720,10330,10510,11360,11580,12210,13270,13450,14100,1580,14770 
1570 REM BRANCHES FOR VOLUME, TEMPO, FILTER, FRAME, GO, FORWARD, LOAD, 

CLEAR, HELP, SHOW FRAME, BACKWARD, SAVE, PRINT, & END CLICKS 
1580 : 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 



GRAPHIC 0, 1 :REM 40C TEXT, CLEAR 

SPRITE 1,0 :REM FINGER CURSOR OFF 

SYS HA (1) :REM UN INSTALL ASM STUFF 

REM MOVE BANK 1 TOP BACK UP 

POKE 53, 00 : POKE 54, 255 

POKE 57, 00 : POKE 58, 255 

RETURN 



REM CONFIGURE MEMORY 



REM MOVE BANK 1 TOP DOWN FOR HELP SCREENS 
POKE 53, 00 : POKE 54, 128 
POKE 57, 00 : POKE 58, 128 

RETURN 



REM INITIALIZE SOME VARIABLES 
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1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 



DN = PEEK (186) :REM DRIVE * WE ENTERED VIA 
OPEN 12, (DN), 12, "S/M VARS,S,R" :REM OPEN FILE 

FINISHED = :REM FINISHED IS FALSE 
NH = 22 :REM NUMBER OF HELP SCREENS 
CH = 1 :REM CURRENT HELP SCREEN 



LB 



1 



HB 



1 :REM LO AND HI BYTES FOR POINTER WORK 



BL$ = " 

BL$ = BL$ + BL$ + BL$ + BL$ 

BL$ = BL$ + BL$ :REM 160 BLANKS 

INPUT* 12, ZR$ :REM 10 ZEROES 

MD = 3000 :REM MAXIMUM FD () SELECTOR 

DIM FD (MD) :REM STACK FOR SOUND FRAME DATA 

MF = 1000 :REM MAXIMUM FF% () SELECTOR 

DIM FF% (MD) :REM ARRAY OF POINTERS INTO FD () 

: :REM ... ONE FOR EACH FRAME 

MS = 100 :REM MAXIMUM FS$ () SELECTOR 

DIM FS$ (MS) :REM ARRAY OF FRAME DATA STRINGS 

FOR N = 1 TO 7 :REM SIZE OF FRAME DATA BLOCK, TITLE AREA *, AND 

: INPUT* 12, DZ (N), TT (N), FT$ (N) :REM ... DESCRIPTIVE STRING FOR 

: NEXT :REM ... SEVEN FRAME TYPES 



CM$ = "READY TO ROLL.. 



:REM INITIAL MESSAGE 



DIM HA (13) :REM A LARGE ARRAY 

FOR N = TO 13 :REM SET ASM HELP ADDRESSES 

: INPUT* 12, HA (N) 

: NEXT 

DIM PF ( 21 , 3 ) :REM A LARGE ARRAY 
FOR N = TO 21 :REM SET PARAMETER FETCH ARRAY 
FOR P = TO 3 

INPUT* 12, PF ( N, P ) 
NEXT 
NEXT 



FOR N = TO 5 

INPUT* 12, EW$ (N) 
NEXT 

FOR N = TO 7 

INPUT* 12, DS (N) 
INPUT* 12, SW$ (N) 
NEXT 



:REM ENVELOPE PARAM. STRINGS 



:REM DEFAULT SOUND ARRAY 
:REM SOUND PARAM. STRINGS 



FOR N = TO 9 

FOR P = TO 5 

INPUT* 12, DE% (N,P) 

NEXT 
NEXT 



:REM DEFAULT ENVELOPES 



FOR N = TO 4 

INPUT* 12, FW$ (N) 
NEXT 



:REM FILTER PARAM. STRINGS 



FOR N = 1 TO 5 

FOR P = 1 TO 3 

INPUT* 12, HP ( N, P ) :REM HELP SCREEN INVERSION PARAMETERS 
NEXT 
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2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 

2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 



: NEXT 

DIM HK (NH), HQ (NH) 
FOR N = 1 TO NH 
: INPUT* 12, HK (N) 
: INPUT* 12, HQ (N) 
: NEXT 



:REM HELP SCREEN K-BOUNDARY & QUADRANT 



PRINT* 12 : CLOSE 12 :REM CLOSE FILE 
RETURN 



REM RESET SOUND VARIABLES 



FOR N = TO 7 :REM SET SOUND ARRAY TO DEFAULT 
: CS (N) = DS (N) 

: NEXT 



CP$ = 



:REM CURRENT PLAY STRING 



FOR N = TO 9 :REM DEFAULT ENVELOPES 

: FOR P = TO 5 :REM 5 PARAMS 

: CE% (N,P) = DE% (N,P) 

: NEXT 

: ENVELOPE N, CE% (N,0), CE% (N,1), CE% (N,2), 

CE% (N,3), CE% (N,4), CE% (N,5) 
: NEXT 



:REM SET IT 



CV 
CT 



15 

8 



VOL CV 

TEMPO CT 



:REM SET CURRENT VOLUME 
:REM SET CURRENT TEMPO 



:REM CURRENT FILTER ARRAY IS ZEROED 



FOR N = TO 4 

: CF{N) = 

: NEXT 

FILTER CF (0), CF (1), CF (2), CF (3), CF (4) :REM 

FR = 1 :REM CURRENT SOUND FRAME 

TF = :REM HIGHEST RECORDED FRAME & TOP OF FF% () 

TD = :REM POINTER TO TOP OF FD () 

TS = :REM POINTER TO TOP OF FS$ ( ) 

RETURN ' 



REM DRAW A FRESH SCREEN 



SET IT 



COLOR 4,1 :REM BLACK BORDER 

COLOR 0,1 :REM BLACK BACKGROUND 

GRAPHIC 0,0 :REM 40 -COLUMN TEXT, NO CLEAR 

COLOR 5,6 :REM GREEN TEXT FOR HELP 

GRAPHIC 0,1 :REM 40-COLUMN TEXT, CLEAR (TO GREEN) 

COLOR 1,1 :REM BLACK BIT MAP PEN 

GRAPHIC 1,1 :REM BIT MAP, CLEARED 

GOSUB 3380 :REM DRAW SIX WINDOWS 

GOSUB 4330 :REM DRAW FRAME COUNTER 

GOSUB 4400 :REM DRAW NINE BUTTONS & A WINDOW 

GOSUB 4640 :REM DRAW HELP BUTTON 

RETURN 



REM UPDATE THE SCREEN 



GOSUB 5100 :REM 
GOSUB 5180 :REM 



UPDATE ENVELOPES WINDOW 
UPDATE VOLUME WINDOW 
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3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 



GOSUB 5280 
GOSUB 5380 
GOSUB 5570 
GOSUB 5670 
RETURN 



:REM UPDATE TEMPO WINDOW 

:REM UPDATE FILTER WINDOW 

:REM UPDATE FRAME COUNTER 

:REM UPDATE MESSAGE WINDOW 



REM LOAD AND INSTALL BINARY FILES 



BLOAD "FINGER CURSOR", B15, U(DN) 
BLOAD "S/M ASM 1", B15, U(DN) 
BLOAD "S/M ASM 2", B15, U(DN) 
BLOAD "S/M HELP PACK", B1 , U(DN) 
SYS HA (0) :REM INSTALL ASSEM. 
RETURN 



:REM 
:REM 
:REM 
:REM 

ROUTINES 



LAB SPRITE DATA 
ASSEM. ROUTINES 
ASSEM. ROUTINES 
HELP SCREEN DATA 



REM INITIALIZE CURSOR 



MOVSPR 1, 190, 96 :REM MOVE IT INTO PLACE 
SPRITE 1 , 1 , 1, 0, 0, 0, 1 :REM SET IT UP 
SPRCOLOR 2 :REM MORE SET UP 

RETURN 



REM DRAW SIX WINDOWS 



RESTORE 3480 :REM PREP TO READ 
FOR N = 1 TO 6 :REM SIX TO DO 

READ TO, T1, T2, T3, T4, T5, T6, T7, T8, T9, TP$ :REM GET THAT DATA 

COLOR 1 , 3 :REM RED 

BOX , TO, T1 , T2, T3 :REM BOX 

DRAW , T4, T5 TO T6, T7 :REM LINE 

COLOR 1, 15 :REM LIGHT BLUE 

CHAR , T8, T9, TP$ :REM TITLE 

NEXT 




FOR P = 1 TO 6 

: REM CUSTOMIZE WINDOWS 

: ON P GOSUB 3650, 3820, 3910, 3600, 3600, 4170 

: NEXT 

RETURN 



REM CUSTOMIZE SOUND WINDOW 



RESTORE 3720 :REM PREP TO READ DATA 

FOR N = 1 TO 8 :REM DRAW HORIZONTAL LABELS 

: READ HU,CN,LB$ :REM GRAB LABEL'S SPECS 

: COLOR 1,HU :REM SET PEN COLOR 

: CHAR ,CN,1,LB$ :REM DRAW LABEL 

: NEXT 



DATA 10, 5 , 



DATA 10, 13, "DURTN", 12, 19, "D" 
DATA 10, 21, "MINFR", 12, 27, "SWSTP" 



12, 7, "FRQCY" :REM HORIZONTAL LABEL DATA 



:REM COLOR, COLUMN, STRING 



DATA 10, 33, "W" 



12, 36, "PW" 
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3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 



RETURN 



REM CUSTOMIZE PLAY WINDOW 



COLOR 1, 15 :REM LIGHT BLUE 

FOR N = 5 TO 8 :REM CLEAR EACH ROW 
: CHAR , 6, N, LEFTS ( BL$, 33) 
: NEXT N 

RETURN 



REM CUSTOMIZE ENVELOPE WINDOW 



RESTORE 3980 :REM 

FOR N = 1 TO 7 :REM 
: READ HU,CN,LB$ 
: COLOR 1 ,HU 
: CHAR ,CN,13,LB$ 
: NEXT 

DATA 10, 1, "#", 

DATA 10, 5, "DC", 

DATA 10, 9, "RL", 

DATA 10, 13, "PW" 



PREP TO READ 

SEVEN HORIZONTAL LABELS 
:REM GRAB LABEL SPECS 

:REM SET COLOR 

:REM DRAW IT 



12, 3, "AT" 
12, 7, "SS" 
12, 11, "W" 



:REM HORIZONTAL LABEL DATA 
:REM COLOR, COLUMN, STRING 



READ H1 , H2 :REM READ VERT. LABEL COLORS 

FOR N = TO 9 :REM DRAW VERTICAL LABELS 

: COLOR 1 , H1 :REM SET PEN COLOR 

: CHAR , 1, 14+N, RIGHTS ( STR$(N), 1 ) :REM THE NUMBERS 0. 

: SM = H2 : H2 = H1 : H1 = SM :REM SWAP COLORS 

: NEXT 

DATA 12, 10 :REM VERT. LABEL COLORS 

RETURN 



REM CUSTOMIZE FILTER WINDOW 



RESTORE 4240 :REM 

FOR N = 1 TO 5 :REM 

READ HU, CN, LB$ :REM 

COLOR 1 , HU :REM 

CHAR , CN, 13, LB$ :REM 
NEXT 



PREP FOR DATA READS 
DRAW HORIZONTAL LABELS 

GRAB LABEL'S SPECS 

SET PEN COLOR 

DRAW LABEL 



"FREQ" 

II r>» 



12, 33, "L" 
12, 35, "H" 



DATA 10, 28, 

DATA 10, 34, "B 

DATA 10, 37, "RS" 

RETURN 



REM DRAW FRAME COUNTER 



:REM HORIZ. LABEL DATA 
:REM COLOR, COLUMN, STRING 



COLOR 1 , 15 
CHAR , 17, 15, 

RETURN 



"FRAME" 



:REM 
:REM 



LIGHT BLUE 
DRAW TITLE 



REM DRAW NINE BUTTONS & A WINDOW 

RESTORE 4500 :REM PREP TO READ 
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4700 
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4770 
4780 
4790 
4800 
4810 
4820 
4830 
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4850 
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4870 
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4900 
4910 
4920 
4930 
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4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 



FOR N 



1 TO 10 



:REM TEN ITEMS TO DRAW 



REM 


RED 


REM 


NICE BOX 


REM 


LIGHT BLUE 


REM 


NICE TITLE 



READ T1 , T2, T3, T4, T5, T6, TP$ 

COLOR 1,3 

BOX , T1 , T2 , T3 , T4 

COLOR 1 , 15 
CHAR , T5, T6, TP$ 
NEXT 
RETURN 

DATA 139, 131, 171, 147, 18, 17, "GO" 

DATA 179, 131, 211, 147, 23, 17, "FWD" 

DATA 219, 131, 251, 147, 28, 17, "LOD" 

DATA 259, 131, 291, 147, 33, 17, "CLR" 

DATA 139, 155, 171, 171, 18, 20, "SHO" 

DATA 179, 155, 211, 171, 23, 20, "BKD" 

DATA 219, 155, 251, 171, 28, 20, "SAV" 

DATA 259, 155, 291, 171, 33, 20, "PRT" 

DATA 139, 179, 275, 195, 1, 1, "" 

DATA 283, 179, 315, 195, 36, 23, "END" 



REM DRAW HELP BUTTON 



:REM GET BUTTON DATA 



:REM MESSAGE WINDOW 



COLOR 1 , 3 



: REM RED 



299, 131, 315, 171 



BOX 

COLOR 

CHAR 

CHAR 

CHAR 

CHAR , 38, 20, "P 

RETURN 



:REM NICE BOX 



1, 15 

, 38, 17, "H" 

, 38, 18, "E" 

, 38, 19, "L" 



:REM LIGHT BLUE 
:REM TITLE 



REM UPDATE SOUND WINDOW 



RESTORE 4870 :REM 

FOR N = TO 7 :REM 

TP$ = STR$ ( CS(N)) :REM 

T = LEN (TP$) :REM 

READ PW, HU, CN :REM 
TP$ = LEFT$ (ZR$, PW - T 

COLOR 1 , HU :REM 

CHAR ,CN, 2, TP$ :REM 
NEXT 



PREP FOR DATA READS 
FOR 8 SOUND PARAMETERS 

STRINGIZE A VALUE 

GET LENGTH 

GET WIDTH, COLOR, COLUMN 
+ 1 ) + RIGHT$ (TP$, T - 1 ) 

SET PEN COLOR 

DRAW THAT VALUE 



:REM PAD WITH 0'S 



DATA 
DATA 
DATA 
DATA 

RETURN 



1, 7, 5, 

5, 7, 13, 

5, 7, 21, 

1, 7, 33, 



5, 15, 7 

1, 15, 19 

5, 15, 27 

4, 15, 35 



:REM 
:REM 

:REM 



SOUND WINDOW DATA 
EIGHT 3-TUPLETS : 
WIDTH, COLOR, COLUMN 



REM UPDATE PLAY WINDOW 



COLOR 1,7 :REM BLUE PEN 

GOSUB 3820 :REM CUSTOMIZE PLAY WINDOW TO CLEAR DATA AREA 

IF CP$ = "" THEN 5050 :REM DON'T DRAW NULL STRINGS 

SR = 6 + ( LEN(CP$) > 99 ) :REM FIGURE STARTING ROW 

FOR N = TO 3 :REM DRAW ROWS OF STRING 

: CHAR , 6, SR + N, MID$ (CP$, 1 + 33 * N, 33) 
: NEXT 

RETURN 
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5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
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5520 
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5650 
5660 
5670 
5680 
5690 
5700 



REM UPDATE ENVELOPES WINDOW 



FOR EN = TO 9 
: GOSUB 5750 
: NEXT 

RETURN 



:REM 
:REM 



NINE ENVELOPES TO DO 
UPDATE AN ENVELOPE 



REM UPDATE VOLUME WINDOW 



TP$ = STR$ (CV) 

T = LEN (TP$) 

TP$ = LEFT$ (ZR$, 4 

COLOR 1 , 7 

CHAR , 18, 13, TP$ 

RETURN 



REM UPDATE TEMPO WINDOW 



JS WIN 

:REM 


JUW 

STRINGIZE CURRENT VOLUME 


:REM 


GET LENGTH 


T ) + 


RIGHT$ (TP$, T - 1) :REM 


:REM 


BLUE PEN 


:REM 


DRAW THAT STRING 



PAD WITH 0'S 



TP$ = STR$ (CT) :REM 
T = LEN (TP$) :REM 

TP$ = LEFT$ (ZR$, 4 - T ) + 
COLOR 1,7 :REM 

CHAR , 23, 13, TP$ :REM 
RETURN 



STRINGIZE CURRENT TEMPO 
GET LENGTH 
RIGHT$ (TP$, T - 1) :REM 
BLUE PEN 
DRAW THAT STRING 



PAD WITH 0'S 



REM UPDATE FILTER WINDOW 



) 



:REM 
:REM 
:REM 
:REM 
:REM 



RESTORE 5480 
FOR N = TO 4 

TP$ = STR$ ( CF(N) 

T = LEN (TP$) 

READ PW, HU, CN 

TP$ = LEFT$ (ZR$, PW - T + 

COLOR 1 , HU SREM 

CHAR , CN, 14, TP$ :REM 

NEXT 



DATA 4, 7, 28, 
DATA 1, 7, 34, 
DATA 2, 7, 37 



PREP FOR DATA READS 

DEAL WITH ALL FILTER PARAMS 

STRINGIZE A PARAMETER 

GET LENGTH 

GET WIDTH, COLOR, COLUMN 
1) + RIGHTS (TP$, T - 1) :REM 

SET PEN COLOR 

PAINT THAT PARAM 



PAD WITH 0'S 



1, 15, 


33 


:REM 


SUBROUTINE DATA 


1, 15, 


35 


:REM 


FIVE WIDTH, COLUMN, 






:REM 


. . . COLOR TRIPLETS 



RETURN 



REM UPDATE FRAME COUNTER 



TP$ = STR$ (FR) :REM 
T = LEN (TP$) :REM 
TP$ = LEFTS (ZR$, 5 - T) 
COLOR 1 ,7 :REM 

CHAR , 23, 15, TP$ :REM 
RETURN 



STRINGIZE CURRENT SOUND FRAME 

GET LENGTH 

RIGHT$ (TP$, T - 1) :REM PAD WITH 0'S 

BLUE PEN 

DRAW THAT STRING 



REM UPDATE MESSAGE WINDOW 



COLOR 1 , 6 

CHAR , 18, 23, LEFTS 

CHAR , 18, 23, LEFTS 

RETURN 



:REM GREEN PEN 
( BL$, 16 ) :REM BLANK OUT AREA 
( CMS, 16 ) :REM PRINT CURRENT MESSAGE 
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6330 
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REM UPDATE AN ENVELOPE 



RESTORE 59 50 



:REM PREP TO READ DATA 



READ H1 , H2 :REM 

IF INT ( EN / 2 ) <> EN / 2 THEN 5810 
SM = H1 : H1 = H2 : H2 = SM :REM 



FOR N = TO 5 STEP 2 
: H(N) = H1 
: H(N+1 ) = H2 
: NEXT 

FOR N = TO 5 

TP$ = STR$ ( CE% (EN, N) 

T = LEN (TP$) 

READ PW, CN 

TP$ = LEFT$ (ZR$, PW - T 

COLOR 1 ,H(N) 

CHAR ,CN, 14 + EN, TP$ 

NEXT 



:REM 
:REM 



:REM 
:REM 
:REM 

:REM 



READ THE TWO COLORS 

:REM ALTERNATE ROWS SWITCH HUES 
SWITCH 'EM 

SET COLORS FOR THE SIX 

. . . PARAMETERS 



DRAW THE SIX PARAMETERS 
STRINGIZE A PARAMETER 
STRIP SPACE 
READ WIDTH AND COLUMN 



1 ) + RIGHT$ (TP$, T - 1 ) 
:REM SET PEN COLOR 
:REM DRAW IT 



:REM PAD WITH 0'S 



DATA 15, 
DATA 2 , 
DATA 2 , 

RETURN 



7 

3, 

9, 



2, 5, 
1, 11, 



2, 7 
4, 12 



:REM SUBROUTINE DATA 

:REM TWO PEN COLORS 

:REM SIX WIDTH, COLUMN PAIRS 



REM SOUND CLICK 



AN = 1 : GOSUB 6660 :REM INVERT TITLE 

GOSUB 4770 :REM DRAW CURRENT SOUND ARRAY 

TA = MA :REM SET TARGET AREA 

IF TA = 1 THEN TA = 2 :REM MOVE FROM TITLE 

CM$ = "SOUND " + SW$ ( TA - 2 ) : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 

RW = 2 :REM SET PARAM. FETCH ROW 

PN = TA - 2 :REM SET PARAM. FETCH SELECTOR 

EV = CS ( PN ) :REM SET PARAM. FETCH ENTRY VALUE 

AD = :REM SET PARAM. FETCH AREA ID 

SYS HA (8), PF (PN, 2), 1, PF (PN, 3) :REM INVERT TARGET LABEL 

GOSUB 15020 :REM FETCH A PARAMETER 

SYS HA (8), PF (PN, 2), 1, PF (PN, 3) :REM NORMALIZE TARGET LABEL 

REM JUMP IF OUT OF WINDOW, UNLESS IT'S THE GO BUTTON 

IF ( MM < 1 OR MM > 9 ) AND MM <> 95 THEN MA = MM : GOTO 6520 

IF VC = THEN 6090 :REM BACK UP IF INVALID PARAMETER 

IF XV <> EV THEN CS ( TA - 2 ) = XV :REM STORE VALID PARAMETER 

IF MM <> 1 THEN 6410 :REM JUMP IF NOT IN TITLE 

CM$ = "RECRD SOUND CMND" : GOSUB 5670 :REM FEEDBACK 

AN = 94 : GOSUB 6660 :REM INVERT COUNTER 

GOSUB 6600 :REM PLAY CURRENT SOUND 

GOSUB 15830 :REM LET SOUND FINISH 

D (0) = 1 :REM SET UP SOUND FRAME DATA 

FOR N = 1 TO 8 :REM FIRST THE TYPE, THEN THE VALUES 

: D (N) = CS (N - 1 ) 
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: NEXT 

GOSUB 15460 :REM 
IF NOT RR THEN MA = 
GOTO 6090 :REM 



RECORD A SOUND FRAME 
GOTO 6520 :REM LEAVE IF COULDN'T RECORD 
BACK UP FOR MORE 



IF MM <2 OR MM >9 THEN 6450 :REM JUMP IF NOT IN SOUND AREA 
TA = MM :REM MOVE TO THAT AREA 
GOTO 6090 :REM FETCH ANOTHER PARAM. 

CM$ = "TEST SOUND CMND" : GOSUB 5670 :REM FEEDBACK 



AN = 95 : GOSUB 6660 :REM 

GOSUB 6600 :REM 

GOSUB 15830 :REM 

AN = 95 : GOSUB 6660 :REM 

GOTO 6090 :REM 



INVERT GO BUTTON 
PLAY CURRENT SOUND 
LET SOUND FINISH 
NORMALIZE GO BUTTON 
BACK UP FOR MORE 



CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 

CHAR , 5, 2, LEFT$ ( BL$, 34 ) :REM CLEAR DATA AREA 

AN = 1 : GOSUB 6660 :REM NORMALIZE "SND" 

GOTO 1520 :REM BACK TO LAB EVENT LOOP 



REM PLAY CURRENT SOUND 



SOUND CS(0) r CS(1), CS(2), CS(3), CS(4), CS(5), CS(6), CS(7) 

RETURN 



REM INVERT AN AREA 



SYS HA (9), HA (10), HA (11), AN 

RETURN 



:REM 



INVERT AN AREA 



REM PLAY CLICK 



AN = 10 : GOSUB 6660 :REM INVERT TITLE 

CP = :REM INIT EDITING CURSOR 

GOSUB 15690 :REM TYPE ONE SOUND 

CM$ = "EDIT PLAY STRING" : GOSUB 5670 :REM FEEDBACK 



IF LEN <CP$) < 132 THEN 



SR% (0) = 

SR% ( 1 ) = 

SR% (2) = 

SR% (3) = 

SR% (4) - 

SR% (5) = 

SR% (6) = 

SR% (7) = 
SR% (8) 
N 



POINTER (CP$) 

POINTER (CP$) 

5 

8 

6 

38 

11 

HA (12) 

CP 



POINTER ( SR% ( ) 
HB = INT ( N / 256 ) 
LB = N - ( HB * 256 ) 
SYS 1024, LB, HB, 1 
RREG MM, CP 

IF MM <> 95 THEN 7030 



CP$ = CP$ + LEFT$ ( BL$, 132 - LEN (CP$) ) 

:REM PAD CP$ TO SIZE 

:REM SET UP FOR STRNGRECTEDIT 

:REM ENTRY STRING 

:REM EXIT STRING 

:REM TOP 

:REM BOTTOM 

:REM LEFT 

:REM RIGHT 

:REM AREA ID 

:REM AREA DATA TABLE 

:REM EDITING CURSOR POSITION 

) :REM ADDRESS OF ARRAY 

:REM ADDRESS HI -BYTE 

:REM ADDRESS LO-BYTE 

:REM CALL STRNGRECTEDIT 

:REM GET P-M EXIT AREA ID & CURSOR POSITION 

:REM IF NOT GO BUTTON, JUMP 



AN = 95 : GOSUB 6660 :REM INVERT GO TITLE 

CM$ = "TEST PLAY STRING" : GOSUB 5670 :REM FEEDBACK 

PLAY CP$ :REM PLAY IT 

AN = 95 : GOSUB 6660 :REM NORMALIZE GO TITLE 
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GOTO 6750 

IF MM <> 10 THEN 7220 

IF TS <= MS THEN 7100 



:REM BACK FOR MORE 
:REM IF NOT PLAY TITLE, BYE 
:REM JUMP IF ROOM FOR STRING 



EM$ = "NO STRING SPACE" : GOSUB 16080 :REM FEEDBACK 
MA = : GOTO 7240 :REM AND LEAVE 



CM$ = "RECRD PLAY STRNG" : GOSUB 5670 
AN = 94 : GOSUB 6660 :REM 
PLAY CP$ :REM 



;REM 



FEEDBACK 



INVERT COUNTER 
PLAY EDITED STRING 



D (0) = 2 :REM 

D (1) = TS :REM 

FS$ (TS) = CP$ :REM 

GOSUB 15460 :REM 

IF NOT RR THEN MA = 

TS = TS + 1 :REM 

GOTO 6750 :REM 



MA 



MM 



CM$ = "" : GOSUB 5670 
GOSUB 3820 

AN = 10 : GOSUB 6660 
GOTO 1520 



FRAME DATA IS PLAY TYPE 
DATA INDEXES PLAY STRING 
STORE PLAY STRING 
RECORD A PLAY FRAME 

! GOTO 7240 :REM LEAVE IF COULDN'T RECORD 
UP POINTER TO STRING ARRAY TOP 
BACK FOR MORE 

:REM SET MOUSE AREA FOR RETURN 

:REM CLEAR MESSAGE WINDOW 

:REM CLEAR PLAY DATA AREA 

:REM NORMALIZE PLAY TITLE 

:REM BACK TO LAB EVENT LOOP 



REM ENVELOPE CLICK 

AN = 12 : GOSUB 6660 :REM INVERT TITLE 

TA = MA :REM SET TARGET AREA 

IF TA = 12 THEN TA = 1 4 :REM MOVE FROM TITLE 

EN = INT ( (TA - 13) / 7 ) :REM FIGURE ENVELOPE § 

IF (TA - 13) / 7 = EN THEN TA = TA + 1 :REM MOVE FROM ENVELOPE # 

PS = TA - 14 - (EN * 7) :REM FIGURE PARAMETER SELECTOR 

REM FEEDBACK 

CM$ = "ENV #" + RIGHT$ ( STR$(EN), 1 ) + " " + EW$ (PS) : GOSUB 5670 

GOSUB 15690 :REM TYPE ONE SOUND 

RW = EN + 14 :REM SET PARAM. FETCH ROW 

PN = PS + 8 :REM SET PARAM. FETCH SELECTOR 

EV = CE% ( EN, PS) :REM SET PARAM. FETCH ENTRY VALUE 

AD = :REM SET PARAM. FETCH AREA ID 

SYS HA (8), 1, EN + 14, 1 :REM INVERT ENVELOPE # 

SYS HA (8), PF (PS + 8, 2), 13, PF (PS + 8, 3) :REM INVERT PARAM. LABEL 

GOSUB 15020 :REM FETCH A PARAMETER 

SYS HA (8), PF (PS + 8, 2), 13, PF (PS + 8, 3) :REM NORMALIZE PARAM. LABEL 

SYS HA (8), 1, EN + 14, 1 :REM NORMALIZE ENVELOPE § 

IF MM < 12 OR MM > 82 THEN MA = MM : GOTO 7770 :REM LEAVE IF OUT OF WINDOW 

IF VC = THEN 7420 :REM BACK UP IF INVALID PARAMETER 

IF XV <> EV THEN CE% (EN, PS) = XV : GOSUB 7850 :REM STORE & SET 

IF MM <> 12 THEN TA = MM : GOTO 7370 :REM JUMP IF NOT IN TITLE 

CM$ = "RECRD ENV" + STR$ (EN) + " CMND" : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 
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AN = 94 : GOSOB 6660 



:REM INVERT COUNTER 



D (0) = 3 :REM 

D (1 ) = EN :REM 

FOR N = 2 TO 7 

: D (N) = CE% ( EN, N 

: NEXT 

GOSOB 15460 :REM RECORD A SOUND FRAME 

IF NOT RR THEN MA = : GOTO 7770 :REM 

GOTO 7420 :REM BACK UP FOR MORE 



DATA TYPE IS ENVELOPE 
FILL IN DATA FRAME VALUES 



2 ) 



LEAVE IF COULDN'T RECORD 



CM$ = "" : GOSUB 5670 :REM 

GOSUB 5750 :REM 

AN = 12 : GOSUB 6660 :REM 

GOTO 1520 :REM 



CLEAR FEEDBACK 
REDRAW LAST ENVELOPE 
NORMALIZE TITLE 
BACK TO LAB EVENT LOOP 



REM SET CURRENT ENVELOPE 



CM$ = "NEW ENVELOPE" + STR$ (EN) : GOSUB 5670 :REM 

GOSUB 15690 :REM TYPE ONE SOUND 

GOSUB 16330 :REM PAUSE 

CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 

ENVELOPE EN, CE% (EN, 0), CE% (EN, 1), CE% (EN, 2), 

CE% (EN, 3), CE% (EN, 4), CE% (EN, 5) 
RETURN 



FEEDBACK 



:REM 



SET IT 



REM VOLUME CLICK 

AN = 83 : GOSUB 6660 :REM INVERT TITLE 

CM$ = "SET VOLUME LEVEL" : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 

RW = 13 :REM SET PARAM. FETCH ROW 

PN = 14 :REM SET PARAM. FETCH SELECTOR 

EV = CV :REM SET PARAM. FETCH ENTRY VALUE 

AD = :REM SET PARAM. FETCH AREA ID 

GOSUB 15020 :REM FETCH A PARAMETER 

IF MM < 83 OR MM > 84 THEN MA = MM : GOTO 8290 :REM LEAVE IF OUT OF WINDOW 

IF VC = THEN 7970 :REM BACK UP IF INVALID PARAMETER 

IF XV = EV THEN 8170 :REM JUMP IF NO CHANGE TO VOLUME 



CV = XV : VOL CV :REM SET NEW VOLUME 
CM$ = "VOLUME SET TO" + STR$(CV) : GOSUB 5670 
GOSUB 15690 :REM TYPE ONE SOUND 



:REM 



FEEDBACK 



IF MM = 84 THEN 7970 :REM JUMP IF NOT IN TITLE 

CM$ = "RECORD VOLUME" + STR$ (CV) : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 

AN = 94 : GOSUB 6660 :REM INVERT COUNTER 

D(0) = 4 :REM DATA TYPE IS VOLUME 

D(1) = CV :REM SEND THE NEW VOLUME 

GOSUB 15460 :REM RECORD THE FRAME 

IF RR THEN 7970 :REM IF RECORDED OK, BACK FOR MORE 

MA = :REM IF COULDN'T RECORD, LEAVE 

CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 



332 



8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 



GOSUB 5180 :REM 

AN = 83 : GOSUB 6660 :REM 
GOTO 1520 :REM 



UPDATE VOLUME WINDOW 

NORMALIZE TITLE 

BACK TO LAB EVENT LOOP 



REM TEMPO CLICK 

AN = 85 : GOSUB 6660 :REM INVERT TITLE 

CM$ = "SET PLAY TEMPO" : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 

RW = 13 :REM SET PARAM. FETCH ROW 

PN = 15 :REM SET PARAM. FETCH SELECTOR 

EV = CT :REM SET PARAM. FETCH ENTRY VALUE 

AD = :REM SET PARAM. FETCH AREA ID 

GOSUB 15020 :REM FETCH A PARAMETER 

IF MM < 85 OR MM > 86 THEN MA = MM : GOTO 8710 :REM LEAVE IF OUT OF WINDOW 

IF VC = THEN 8390 :REM BACK UP IF INVALID PARAMETER 

IF XV = EV THEN 8590 :REM JUMP IF NO CHANGE TO TEMPO 

CT = XV : TEMPO CT :REM SET NEW TEMPO 

CM$ = "TEMPO SET TO" + STR$(CT) : GOSUB 5670 :REM FEEDBACK 

GOSUB 15690 :REM TYPE ONE SOUND 

IF MM = 86 THEN 8390 :REM JUMP IF NOT IN TITLE 

CM$ = "RECORD TEMPO" + STR$ (CT) : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 

AN = 94 : GOSUB 6660 :REM INVERT COUNTER 

D(0) = 5 :REM DATA TYPE IS TEMPO 

D(1) = CT :REM SEND THE NEW TEMPO 

GOSUB 15460 :REM RECORD THE FRAME 

IF RR THEN 8390 :REM IF RECORDED OK, BACK FOR MORE 

MA = :REM IF COULDN'T RECORD, LEAVE 

CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 

GOSUB 5280 :REM UPDATE TEMPO WINDOW 

AN = 85 : GOSUB 6660 :REM NORMALIZE TITLE 

GOTO 1520 :REM BACK TO LAB EVENT LOOP 



REM FILTER CLICK - 

AN = 87 : GOSUB 6660 

TA = MA 

IF TA = 87 THEN TA = 88 



:REM 
:REM 
:REM 



INVERT TITLE 
SET TARGET AREA 
MOVE FROM TITLE 



CM$ = "FILTER " + FW$ ( TA - 88 ) : GOSUB 5670 :REM 
GOSUB 15690 :REM TYPE ONE SOUND 



FEEDBACK 



RW = 14 :REM SET PARAM. FETCH ROW 

PN = TA - 72 :REM SET PARAM. FETCH SELECTOR 

EV = CF ( TA - 88 ) :REM SET PARAM. FETCH ENTRY VALUE 

AD = :REM SET PARAM. FETCH AREA ID 

SYS HA(8), PF (PN, 2), 13, PF (PN, 3) :REM INVERT TARGET LABEL 

GOSUB 15020 :REM FETCH A PARAMETER 

SYS HA(8), PF (PN, 2), 13, PF (PN, 3) :REM NORMALIZE TARGET LABEL 
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8950 
8960 
8970 
8980 
8990 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9450 
9460 
9470 
9480 
9490 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 



IF MM < 87 OR MM > 92 THEN MA = MM : GOTO 9130 :REM JUMP IF OUT OF WINDOW 

IF VC = THEN 8830 :REM BACK UP IF INVALID PARAMETER 

IF XV <> EV THEN CF ( TA - 88 ) = XV : GOSUB 9210 :REM STORE & SET 



IF MM <> 87 THEN TA = MM : GOTO 8830 
CM$ = "RECRD FILTR CMND" : GOSUB 5670 



:REM JUMP IF NOT IN TITLE 
:REM FEEDBACK 



GOSUB 15690 

AN = 94 : GOSUB 6660 

D (0) = 6 

FOR N = 1 TO 5 

: D (N) = CF (N - 1 ) 

: NEXT 

GOSUB 15460 

IF RR THEN GOTO 8830 

MA = 

GOSUB 5380 

CM$ = "" : GOSUB 5670 
AN = 87 : GOSUB 6660 
GOTO 1520 



:REM TYPE ONE SOUND 

:REM INVERT COUNTER 

:REM FRAME DATA TYPE IS FILTER 

:REM FIVE VALUES 



:REM RECORD A SOUND FRAME 

:REM IF RECORDED OK, BACK UP FOR MORE 

:REM IF COULDN'T RECORD, LEAVE 

:REM DRAW CURRENT FILTER 

:REM CLEAR FEEDBACK 

:REM NORMALIZE TITLE 

:REM BACK TO LAB EVENT LOOP 



REM SET CURRENT FILTER 



:REM 



FEEDBACK 



CM$ = "NEW FILTER SET" : GOSUB 5670 

GOSUB 15690 :REM TYPE ONE SOUND 

GOSUB 16330 :REM PAUSE 

CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 

FILTER CF(0), CF(1), CF(2), CF(3), CF(4) :REM SET IT 

RETURN 



REM FRAME CLICK 

AN = 93 : GOSUB 6660 :REM 



INVERT TITLE 



CM$ = "FRAME COUNTER" : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 

RW = 15 :REM SET PARAM. FETCH ROW 

PN = 21 :REM SET PARAM. FETCH SELECTOR 

EV = FR :REM SET PARAM. FETCH ENTRY VALUE 

AD = :REM SET PARAM. FETCH AREA ID 

GOSUB 15020 :REM FETCH A PARAMETER 

IF MM < 93 OR MM > 94 THEN MA = MM : GOTO 9640 :REM LEAVE IF OUTTA WINDOW 



IF VC = THEN 9330 :REM 

FF = FR :REM 

IF XV = EV THEN 9330 :REM 

FR = XV : GOSUB 16000 :REM 

IF MM = 94 THEN 9330 :REM 



BACK UP IF INVALID PARAMETER 

SAVE FORMER FRAME 
JUMP IF NO CHANGE TO FRAME 

SET NEW FRAME 

BACK UP IF NOT IN TITLE 



CM$ = "RCRD FRAME CHNGE" : GOSUB 5670 :REM FEEDBACK 
FR = FF : :REM RECORD IT AT FORMER FRAME 

AN = 94 : GOSUB 6660 :REM INVERT COUNTER 



D (0) = 7 
D ( 1 ) = XV 



:REM 
:REM 



DATA TYPE IS FRAME 
DATA VALUE IS NEW FRAME 
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9600 GOSUB 15460 :REM RECORD THE FRAME 

9610 IF RR THEN 9330 :REM IF RECORDED OK, BACK OP FOR MORE 

9620 MA = :REM OTHERWISE, LEAVE 

9630 : 

9640 CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 

9650 GOSUB 5570 :REM UPDATE FRAME COUNTER 

9660 AN = 93 : GOSUB 6660 :REM NORMALIZE TITLE 

9670 GOTO 1520 :REM BACK TO LAB EVENT LOOP 

9680 : 

9690 : 

9700 REM GO CLICK 

9710 : 

9720 AN = 95 : GOSUB 6660 :REM INVERT TITLE 

9730 CM$ = "GO BUTTON" : GOSUB 5670 :REM FEEDBACK 

9740 GOSUB 15690 :REM TYPE ONE SOUND 

9750 SF = FR :REM SAVE START FRAME 

9760 : 

9770 IF TF < FR THEN 10160 :REM LEAVE IF FRAME NOT RECORDED 

9780 : 

9790 IF PEEK ( HA (2) ) = THEN 9850 :REM CONTINUE IF NO P-M CLICK 

9800 : 

9810 SYS HA (3), HA (4), HA (5) :REM SEE WHERE CLICK WAS 

9820 RREG MM 

9830 IF MM <> 95 THEN 10210 :REM LEAVE IF NOT IN GO BUTTON 

9840 : 

9850 T1 = FF% ( FR ) :REM GET FRAME DATA OFFSET 

9860 T2 = FD ( T1 ) :REM GET FRAME'S TYPE 

9870 CM$ = "#" + STR$ ( FR ) + ": " + FT$ (T2) : GOSUB 5670 :REM SHOW 'EM 

9880 GOSUB 5570 :REM UPDATE COUNTER 

9890 : 

9900 REM BRANCH TO CARRY OUT COMMAND TYPES 

9910 ON T2 GOTO 9930, 9960, 9990, 10020, 10050, 10080, 10110 

9920 : 

9930 SOUND FD (T1+1), FD (T1+2), FD (T1+3), FD (T1+4), FD (T1+5), FD (T1+6), 

FD (T1+7) :REM SOUND A FRAME 
9940 GOTO 10130 :REM & CONTINUE 

9950 : 

9960 PLAY FS$ ( FD ( T1 +1 ) ) :REM PLAY A FRAME 
9970 GOTO 10130 :REM & CONTINUE 

9980 : 
9990 ENVELOPE FD (T1+1), FD (T1+2), FD (T1+3), FD (T1+4), FD (T1+5), FD (T1+6), 

FD (T1+7) :REM ENVELOPE A FRAME 
10000 GOTO 10130 :REM & CONTINUE 
10010 : 

10020 VOL FD (T1 +1) :REM VOLUME A FRAME 
10030 GOTO 10130 :REM & CONTINUE 
10040 : 

10050 TEMPO FD (T1 +1) :REM TEMPO A FRAME 
10060 GOTO 10130 :REM & CONTINUE 
10070 : 
10080 FILTER FD (T1+1), FD (T1+2), FD (T1+3), FD (T1+4), FD (T1+5) 

:REM FILTER A FRAME 
10090 GOTO 10130 :REM & CONTINUE 
10100 : 

10110 FR = FD ( T1 + 1 ) :REM FRAME A FRAME 
10120 : 

10130 IF T2 <> 7 THEN FR = FR + 1 :REM INCREMENT FRAME COUNTER 
10140 GOTO 9770 :REM BACK UP FOR MORE 

10150 : 

10160 CM$ = "LAST RCRDED FRAM" : GOSUB 5670 :REM FEEDBACK 
10170 GOSUB 15690 :REM TYPE ONE SOUND 

10180 MA = :REM LEAVE CLEAN 
10190 GOTO 10250 :REM BYE 
10200 : 
10210 CM$ = "USER SEZ STOP" : GOSUB 5670 :REM FEEDBACK 
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10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 



GOSUB 15690 

MA = MM 



:REM 
:REM 



TYPE ONE SOUND 
ASSIGN MOUSE AREA 



CM$ = "" : GOSUB 5670 
FR = SF : GOSUB 5570 
AN = 95 : GOSUB 6660 
GOTO 1520 



:REM 
:REM 
:REM 
:REM 



CLEAR FEEDBACK 
RESTORE FRAME COUNTER 
NORMALIZE TITLE 
BACK TO LAB EVENT LOOP 



REM FORWARD CLICK 



AH c 96 : GOSUB 6660 :REM INVERT TITLE 

CM$ = "FORWARD BUTTON" : GOSUB 5670 :REM FEEDBACK 

GOSUB 15690 :REM TYPE ONE SOUND 

DO :REM FORWARD 'TIL NO BUTTON 

: FR = FR + 1 :REM INCREMENT FRAME COUNTER 
: IF FR > MF THEN FR = 1 :REM WRAPAROUND 
: GOSUB 5570 :REM UPDATE FRAME COUNTER 
LOOP WHILE PEEK ( HA (2) ) 



GOSUB 15890 
AN = 96 : GOSUB 6660 
CM$ = "" : GOSUB 5670 
GOTO 1480 



:REM SHOW THAT FRAME 

:REM NORMALIZE TITLE 

:REM CLEAR FEEDBACK 

:REM BACK TO EVENT LOOP 



REM LOAD CLICK 

AN = 97 : GOSUB 6660 :REM INVERT TITLE 

CM$ = "LOAD BUTTON" : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 

GOSUB 11100 :REM GET A FILE NAME 

IF MM <> 97 THEN MA = MM : GOTO 11030 :REM LEAVE ON OUTSIDE CLICK 

IF TP$ = "" THEN 11010 :REM LEAVE ON NULL NAME 

CM$ = "OPENING FILE ..." : GOSUB 5670 :REM FEEDBACK 
OPEN 12, (DN), 12, TP$ + ",S,R" :REM OPEN FILE 
IF DS THEN 10960 :REM JUMP IF PROBLEMS 

GOSUB 2620 :REM CLEAR SOUND VARIABLES 

CM$ = "LOADING DATA ..." : GOSUB 5670 :REM FEEDBACK 

INPUT* 12, TD :REM GRAB VITALS 

INPUT* 12, TF 

INPUT # 12, TS 

INPUT* 12, FR 

IF TD = THEN 10800 :REM SKIP IF NONE 
FOR N o TO TD-1 :REM GRAB FRAME DATA 
: INPUT* 12, FD (N) 
: NEXT 

IF TF = THEN 10850 :REM SKIP IF NONE 

FOR N = 1 TO TF :REM GRAB FRAME DATA OFFSETS 

: INPUT* 12, FF% (N) 

: NEXT 

IF TS = THEN 10900 :REM SKIP IF NONE 

FOR N = TO TS-1 :REM GRAB FRAME STRINGS 
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10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 



: INPUT* 12, FS$ (N) 
: NEXT 

IF DS THEN 10960 

FAST 

CM$ = "LOADED & READY" 

GOSUB 3090 : SLOW 

SLEEP 2 : GOTO 11000 



:REM JUMP IF PROBLEMS 

: REM FEEDBACK 

:REM REDRAW THE SCREEN 

:REM PAUSE, THEN LEAVE 



EM$ = "DISK PROBLEMS II " : GOSUB 16080 
EM$ = DS$ : GOSUB 16080 :REM FEEDBACK 
GOSUB 11360 :REM CLEAR & REDRAW 



:REM FEEDBACK 



CLOSE 12 
MA = 



:REM 
:REM 



CLOSE FILE 
NOWHERE MOUSE 



CM$ = "" : GOSUB 5670 
AN - 97 : GOSUB 6660 
GOTO 1520 



:REM CLEAR FEEDBACK 

:REM NORMALIZE TITLE 

:REM BACK TO LAB EVENT LOOP 



REM 



GET A FILE NAME 



CM$ = "ENTER FILE NAME:" : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 
GOSUB 16330 :REM PAUSE 



TP$ = LEFT$ ( BL$, 16 ) 



SR% (0) = POINTER (TP$) 

SR% (1) = POINTER (TP$) 

SR% (2) = 23 

SR% (3) = 23 

SR% (4) = 18 

SR% (5) = 33 

SR% (6) = 104 

SR% (7) = HA (12) 

SR% (8) = 

N = POINTER ( SR% ( ) 

HB = INT ( N / 256 ) 

LB = N - ( HB * 256 ) 

SYS 1024, LB, HB, 1 

RREG MM :REM GET 

GOSUB 14000 :REM STRIP 

RETURN 



:REM INIT FILE NAME 
:REM SET UP FOR STRNGRECTEDIT 
:REM ENTRY STRING 
:REM EXIT STRING 
:REM TOP 
:REM BOTTOM 
:REM LEFT 
:REM RIGHT 
:REM AREA ID 
:REM AREA DATA TABLE 
:REM EDITING CURSOR POSITION 
) :REM ADDRESS OF ARRAY 
:REM ADDRESS HI -BYTE 
:REM ADDRESS LO-BYTE 
:REM CALL STRNGRECTEDIT 
P-M EXIT AREA ID 
TP$ TRAILING BLANKS 



REM CLEAR CLICK 

AN = 98 : GOSUB 6660 :REM 



INVERT TITLE 



CM$ = "CLEARING ..." : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE ONE SOUND 
GOSUB 16330 :REM PAUSE 

FAST :REM MOVE IT 

GOSUB 2620 :REM RESET SOUND VARIABLES 

CM$ = " ... ALL CLEAR" :REM FOR UPDATING 

GOSUB 3090 :REM UPDATE THE SCREEN 

SLOW :REM BACK INTO VIEW 

GOSUB 15690 :REM TYPE ONE SOUND 
GOSUB 16330 :REM PAUSE 

CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 
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11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11820 
11830 
11840 
11850 
11860 
11870 
11880 
11890 
11900 
11910 
11920 
11930 
11940 
11950 
11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 



AN = 98 : GOSUB 6660 
GOTO 1480 



REM HELP CLICK 



:REM 
:REM 



NORMALIZE TITLE 

BACK TO LAB EVENT LOOP 



AN = 99 : GOSUB 6660 :REM INVERT TITLE 
GOSUB 15690 :REM TYPE 1 SOUND 

CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 

T2 = PEEK (2604) :REM SAVE SCREEN & CHAR SETUP 

PAST :REM HIDE 

AN = 99 : GOSUB 6660 :REM NORMALIZE TITLE 

POKE 216, :REM TEXT 

MOVSPR 1, 330, 243 :REM ADJUST SPRITE 

POKE 54534, PEEK (54534) OR 64 :REM VIC BANK 

POKE 56576, PEEK (56576) AND 252 OR HQ (CH) :REM VIC QUADRANT 

POKE 2604, PEEK ( 2604 ) AND 1 5 OR ( HK (CH) * 16 ) :REM VIC K-BOUNDARY 

SLOW :REM APPEAR 

IF PEEK ( HA (2) ) = THEN 11730 :REM SCAN FOR P-M BUTTON PRESS 

SYS HA (3), HA (6), HA (7) : RREG MM :REM FIND WHERE PRESSED 

IF MM = THEN 11730 :REM BACK IF NOWHERE 

SYS HA (13), HP ( MM, 1 ) , HP ( MM, 2 ) , HP ( MM, 3 ) :REM INVERT BUTTON 

REM BUTTON BRANCH: FIRST, PREVIOUS, NEXT, LAST, QUIT 
ON MM GOTO 11840, 11870, 11910, 11950, 12060 



CH = 1 
GOTO 11970 



:REM 1ST HELP SCREEN 
:REM MERGE 



CH = CH - 1 :REM PREVIOUS HELP SCREEN 
IF CH = THEN CH = NH :REM WRAPAROUND 
GOTO 11970 :REM MERGE 

CH = CH + 1 :REM NEXT HELP SCREEN 

IF CH > NH THEN CH = 1 :REM WRAPAROUND 

GOTO 11970 :REM MERGE 

CH = NH :REM LAST HELP SCREEN 

GOSUB 15690 :REM TYPE 1 SOUND 

SYS HA (13), HP ( MM, 1 ) , HP ( MM, 2 ) , HP ( MM, 3 ) :REM NORMAL BUTTON 

POKE 2604, PEEK ( 2604 ) AND 1 5 OR ( HK (CH) * 16 ) :REM VIC K-BOUNDARY 
POKE 56576, PEEK ( 56576 ) AND 252 OR HQ (CH) :REM VIC QUADRANT 

GOTO 11730 :REM BACK UP TO SCAN 

GOSUB 15690 :REM TYPE 1 SOUND 

FAST :REM HIDE 

SYS HA (13), HP ( MM, 1 ) , HP ( MM, 2 ) , HP ( MM, 3 ) :REM NORMAL BUTTON 

POKE 54534, PEEK (54534) AND 191 :REM VIC SEES RAM 

POKE 56576, PEEK ( 56576 ) AND 252 OR 3 :REM QUADRANT 

POKE 2604, T2 :REM RESTORE TEXT SCREEN BASE 

POKE 216, 32 :REM BITMAP 

MOVSPR 1, 330, 218 :REM ADJUST SPRITE 

SLOW :REM APPEAR 

GOTO 1480 :REM BACK TO LAB EVENT LOOP 
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12170 
12180 
12190 
12200 
12210 
12220 
12230 
12240 
12250 
12260 
12270 
12280 
12290 
12300 
12310 
12320 
12330 
12340 
12350 
12360 
12370 
12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12500 
12510 
12520 
12530 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12670 
12680 
12690 
12700 
12710 
12720 
12730 
12740 
12750 
12760 
12770 
12780 
12790 
12800 
12810 



REM SHOW FRAME CLICK 



AN - 100 : GOSUB 6660 :REM INVERT TITLE 
AN = 94 : GOSUB 6660 :REM INVERT COUNTER 

IF TF > THEN 12280 :REM CONTINUE IF FRAMES TO SHOW 
EM$ = "NO FRAMES 2 SHOW" : GOSUB 16080 :REM FEEDBACK 
MA = : GOTO 13190 :REM LEAVE TO NOWHERE 

IF FR <= TF THEN 12350 :REM JUMP IF CURRENT FRAME RECORDED 

FR = TF :REM DEFAULT TO TOPMOST FRAME 

AN = 94 : GOSUB 6660 :REM NORMALIZE COUNTER 

GOSUB 5570 :REM UPDATE COUNTER 

AN = 94 : GOSUB 6660 :REM INVERT COUNTER 

CM$ = "SHOWING FRM" + STR$ ( FR ) : GOSUB 5670 :REM FEEDBACK 
GOSUB 15690 :REM TYPE 1 SOUND 



T3 = FF% ( FR ) 
T4 = FD ( T3 ) 



:REM GET FRAME DATA OFFSET 
:REM GET FRAME'S TYPE 



AN = TT (T4) : GOSUB 6660 :REM INVERT TYPE'S TITLE'S AREA 

REM BRANCH TO SHOW FRAME CONTENTS 

ON T4 GOTO 12460, 12520, 12560, 12650, 12700, 12750, 12820 

FOR N = 1 TO 8 :REM MAKE DATA NEW CURRENT SOUND ARRAY 

: CS ( N - 1 ) = FD ( T3 + N ) 

: NEXT 

GOSUB 4770 :REM UPDATE SOUND WINDOW 

GOTO 12860 :REM REGROUP 

CP$ = FS$ ( FD ( T3 + 1 ) ) :REM MAKE DATA NEW CURRENT PLAY STRING 
GOSUB 4970 :REM UPDATE PLAY WINDOW 
GOTO 12860 :REM REGROUP 

EN = FD ( T3 + 1 ) :REM GET ENVELOPE NUMBER 

FOR N = TO 5 :REM MAKE DATA NEW CURRENT ENVELOPE ARRAY ENTRY 

: CE% ( EN, N ) = FD ( T3 + 2 + N ) 

: NEXT 

GOSUB 7890 :REM SET NEW ENVELOPE 

GOSUB 5750 :REM UPDATE AN ENVELOPE 

SYS HA (8), 1, EN + 14, 15 :REM INVERT ENV. # 

GOTO 12860 :REM REGROUP 

CV = FD ( T3 + 1 ) :REM MAKE DATA NEW CURRENT VOLUME 

VOL CV :REM SET NEW VOLUME 

GOSUB 5180 :REM UPDATE VOLUME WINDOW 

GOTO 12860 :REM REGROUP 

CT = FD ( T3 + 1 ) :REM MAKE DATA NEW CURRENT TEMPO 

TEMPO CT :REM SET NEW TEMPO 

GOSUB 5280 :REM UPDATE TEMPO WINDOW 
GOTO 12860 

FOR N = 1 TO 5 :REM MAKE DATA NEW CURRENT FILTER ARRAY 

: CF ( N - 1 ) = FD ( T3 + N ) 

: NEXT 

GOSUB 9250 :REM SET NEW FILTER 

GOSUB 5380 :REM UPDATE FILTER WINDOW 

GOTO 12860 :REM REGROUP 
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12820 
12830 
12840 
12850 
12860 
12870 
12880 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
13260 
13270 
13280 
13290 
13300 
13310 
13320 
13330 
13340 
13350 
13360 
13370 
13380 
13390 
13400 
13410 
13420 
13430 
13440 
13450 
13460 



AN = 94 : GOSUB 6660 :REM NORMALIZE FRAME COUNTER 
T2 = FR : FR = FD ( T3 + 1 ) :REM SET NEW FRAME 
GOSUB 5570 :REM UPDATE FRAME COUNTER 

IF PEEK ( HA (2) ) = THEN 12860 :REM WAIT FOR P-M BUTTON CLICK 

SYS HA (3), HA (4), HA (5) :REM FIGURE CLICK AREA 
RREG MM 

AN = TT (T4) : GOSUB 6660 :REM NORMALIZE TYPE'S TITLE'S AREA 

REM CASE OUT TO ERASE CURRENT DATA 

ON T4 GOTO 12960, 12990, 13020, 13100, 13100, 13100, 13050 

CHAR , 5, 2, LEFT$ ( BL$, 34 ) :REM CLEAR SOUND DATA AREA 
GOTO 13100 :REM REGROUP 

GOSUB 3820 :REM CLEAR PLAY DATA AREA 
GOTO 13100 :REM REGROUP 

SYS HA (8), 1, EN + 14, 15 :REM NORMALIZE ENV. # 
GOTO 13100 :REM REGROUP 

FR = T2 :REM SET NEW FRAME 

GOSUB 5570 :REM UPDATE FRAME COUNTER 

AN = 94 : GOSUB 6660 :REM INVERT FRAME COUNTER 

GOTO 13100 :REM REGROUP 

IF MM <> 100 THEN MA = MM : GOTO 13190 :REM LEAVE IF NOT IN PRINT BUTTON 

FR = FR + 1 :REM INCREMENT FRAME 

IF FR > TF THEN FR = 1 :REM FRAME WRAPAROUND 

AN = 94 : GOSUB 6660 :REM NORMALIZE FRAME COUNTER 

GOSUB 5570 :REM UPDATE FRAME COUNTER 

AN = 94 : GOSUB 6660 :REM INVERT FRAME COUNTER 

GOTO 12350 :REM BACK UP TO SHOW FRAME 

CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 

AN = 94 : GOSUB 6660 :REM NORMALIZE FRAME COUNTER 

AN = 100 : GOSUB 6660 :REM NORMALIZE TITLE 

GOTO 1520 :REM BACK TO LAB EVENT LOOP 



REM BACKWARD CLICK 

AN = 101 : GOSUB 6660 
CM$ = "BACKWARD BUTTON" 
GOSUB 15690 :REM 



:REM INVERT TITLE 
: GOSUB 5670 :REM 
TYPE ONE SOUND 



FEEDBACK 



DO :REM BACKWARD 'TIL NO BUTTON 

: FR = FR - 1 :REM DECREMENT FRAME COUNTER 

: IF FR = THEN FR = MF :REM WRAPAROUND 

: GOSUB 5570 :REM UPDATE FRAME COUNTER 

LOOP WHILE PEEK ( HA (2) ) 

GOSUB 15890 :REM SHOW THAT FRAME 



CM$ = "" : GOSUB 5670 
AN = 101 : GOSUB 6660 
GOTO 1480 



:REM CLEAR FEEDBACK 
:REM NORMALIZE BKD 
:REM BACK TO EVENT LOOP 



REM SAVE CLICK 

AN = 102 : GOSUB 6660 :REM INVERT TITLE 
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13470 

13480 

13490 

13500 

13510 

13520 

13530 

13540 

13550 

13560 

13570 

13580 

13590 

13600 

13610 

13620 

13630 

13640 

13650 

13660 

13670 

13680 

13690 

13700 

13710 

13720 

13730 

13740 

13750 

13760 

13770 

13780 

13790 

13800 

13810 

13820 

13830 

13840 

13850 

13860 

13870 

13880 

13890 

13900 

13910 

13920 

13930 

13940 

13950 

13960 

13970 

13980 

13990 

14000 

14010 

14020 

14030 

14040 

14050 

14060 

14070 

14080 

14090 

14100 

14110 



CM$ = "SAVE BUTTON" : GOSUB 5670 :REM 
GOSUB 15690 :REM TYPE ONE SOUND 
GOSUB 16330 :REM PAUSE 



FEEDBACK 



GOSUB 11100 :REM GET A FILE NAME 

IF MM <> 102 THEN MA = MM : GOTO 13930 :REM LEAVE ON OUTSIDE CLICK 

IF TP$ = "" THEN 13920 :REM LEAVE ON NULL NAME 

CM$ = "OPENING FILE ..." : GOSUB 5670 :REM FEEDBACK 

OPEN 12, (DN), 12, "§:" + TP$ + ",S,W" :REM OPEN FILE 

IF DS THEN 13880 :REM JUMP IF PROBLEMS 

CM$ = "SAVING DATA ..." : GOSUB 5670 :REM FEEDBACK 

PRINT* 12, TD :REM STORE VITALS 

PRINT* 12, TF 

PRINT* 12, TS 

PRINT* 12, FR 



IF TD = THEN 13730 
FOR N = TO TD-1 
: PRINT* 12, FD (N) 
: NEXT 

IF TF = THEN 13780 
FOR N = 1 TO TF 

PRINT* 12, FF% (N) 
: NEXT 



:REM SKIP IF NONE 
:REM STORE FRAME DATA 



:REM SKIP IF NONE 

:REM STORE FRAME DATA OFFSETS 



IF TS = THEN 13830 :REM SKIP IF NONE 

FOR N = TO TS-1 :REM STORE FRAME STRINGS 

: PRINT* 12, FS$ (N) 

: NEXT 

PRINT* 12 :REM CLEAR BUFFER 

IF DS THEN 13880 :REM JUMP IF PROBLEMS 

CM$ = "ALL IS SAVED" : GOSUB 5670 :REM FEEDBACK 
GOSUB 16330 : GOTO 13910 :REM PAUSE, THEN LEAVE 



EM$ = "DISK PROBLEMS II" : GOSUB 16080 
EM$ = DS$ : GOSUB 16080 :REM FEEDBACK 



:REM FEEDBACK 



CLOSE 12 :REM CLOSE FILE 

MA = :REM NOWHERE MOUSE 

CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 

AN = 102 : GOSUB 6660 :REM NORMALIZE TITLE 

GOTO 1520 :REM BACK TO LAB EVENT LOOP 



REM STRIP TP$ TRAILING BLANKS 



N = LEN ( TP$ ) 

DO WHILE MID$ ( TP$, N, 1 ) = " " 

: N=N-1:IFN=0 THEN EXIT 

: LOOP 

TP$ = LEFT$ ( TP$, N ) 

RETURN 



REM PRINT CLICK 

AN = 103 : GOSUB 6660 :REM INVERT TITLE 
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14120 CM$ = "PRINT BUTTON" : GOSOB 5670 :REM FEEDBACK 

14130 GOSUB 15690 :REM TYPE ONE SOUND 

14140 : 

14150 TP = 1 :REM START WITH FIRST FRAME 

14160 : 

14170 IF TP > TF THEN MA = : GOTO 14700 :REM LEAVE WHEN DONE 

14180 : 

14190 IF PEEK ( HA (2) ) = THEN 14250 :REM CONTINUE IF NO P-M CLICK 

14200 : 

14210 SYS HA (3), HA (4), HA (5) :REM SEE WHERE CLICK WAS 

14220 RREG MM 

14230 IF MM <> 103 THEN 14660 :REM LEAVE IF NOT IN PRINT BUTTON 

14240 : 

14250 CM$ = "PRNTG FRAME" + STR$ (TP) : GOSUB 5670 :REM FEEDBACK 

14260 : 

14270 T1 = FF% ( TP ) :REM GET FRAME DATA OFFSET 

14280 T2 = FD ( T1 ) :REM GET FRAME'S TYPE 

14290 : 

14300 OPEN 4,4 :REM OPEN PRINTER 

14310 PRINT04, "FRAME #" STR$ (TP) ": " J 

14320 : 

14330 REM BRANCH TO PRINT FRAME CONTENTS 

14340 ON T2 GOTO 14360, 14390, 14430, 14460, 14490, 14520, 14550 

14350 : 

14360 PRINTiM, "SOUND" FD (T1+1) "," FD (T1+2) "," FD (T1+3) "," FD (T1+4) "," 

FD (T1+5) "," FD (T1+6) "," FD (T1+7) "," FD (T1+8) ; 
14370 GOTO 14570 
14380 : 

14390 TP$ = FS$ ( FD ( T1+1 ) ) : GOSUB 14000 :REM STRIP TRAILING BLANKS 
14400 PRINTiM, "PLAY " TP$ ; 
14410 GOTO 14570 
14420 : 
14430 PRINTiM, "ENVELOPE" FD (T1+1) "," FD (T1+2) "," FD (T1+3) "," FD (T1+4) 

"," FD (T1+5) "," FD (T1+6) "," FD (T1+7) ; 
14440 GOTO 14570 
14450 : 

14460 PRINTIM, "VOL" FD (T1 + 1 ) ; 
14470 GOTO 14570 
14480 : 

14490 PRINTiM, "TEMPO" FD (T1 + 1 ) ; 
14500 GOTO 14570 
14510 • 
14520 PRINTIM, "FILTER" FD (T1+1) "," FD (T1+2) "," FD (T1+3) "," FD (T1+4) "," 

FD (T1+5) ; 
14530 GOTO 14570 
14540 : 

14550 PRINTiM, "JUMP TO FRAME" FD ( T1 + 1 ) ; 
14560 : 

14570 IF TP/60 <> INT (TP/60) THEN 14600 :REM JUMP IF NOT PAGE END 
14580 FOR N = 1 TO 6 : PRINTiM : NEXT 
14590 : 

14600 PRINTiM : CLOSE 4 :REM CLOSE PRINTER 
14610 POKE 186, DN :REM RENEW DISK DEVICE § 
14620 : 

14630 TP = TP + 1 :REM NEXT FRAME 
14640 GOTO 14170 :REM BACK ON UP 
14650 : 

14660 CM$ = "USER SEZ STOP" : GOSUB 5670 :REM FEEDBACK 
14670 GOSUB 15690 :REM TYPE 1 SOUND 
14680 MA = MM :REM ASSIGN MOUSE AREA 
14690 : 

14700 CM$ = "" : GOSUB 5670 :REM CLEAR FEEDBACK 
14710 AN = 103 : GOSUB 6660 :REM NORMALIZE TITLE 
14720 GOTO 1520 :REM BACK TO LAB EVENT LOOP 

14730 : 
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14740 

14750 

14760 

14770 

14780 

14790 

14800 

14810 

14820 

14830 

14840 

14850 

14860 

14870 

14880 

14890 

14900 

14910 

14920 

14930 

14940 

14950 

14960 

14970 

14980 

14990 

15000 

15010 

15020 

15030 

15040 

15050 

15060 

15070 

15080 

15090 

15100 

15110 

15120 

15130 

15140 

15150 

15160 

15170 

15180 

15190 

15200 

15210 

15220 

15230 

15240 

15250 

15260 
15270 
15280 
15290 
15300 
15310 
15320 
15330 
15340 
15350 
15360 
15370 



REM END CLICK 



AN = 105 : GOSUB 6660 :REM INVERT "END" 

CM$ = "SO" : GOSUB 5670 :REM DRAW MESSAGE 

SOUND 1, 3000, 4, 0, 0, 0, 2, 200 

CM$ = "SO LONG," : GOSUB 5670 

SOUND 1, 2500, 4, 0, 0, 0, 2, 200 

CM$ = "SO LONG, PAL ..." : GOSUB 5670 

SOUND 1, 2800, 4, 0, 0, 0, 2, 200 

AN = 105 : GOSUB 6660 :REM NORMALIZE "END' 

FINISHED = 1 :REM WE DONE 

GOTO 1480 :REM BACK TO LAB EVENT LOOP 



:REM 


BEEP 


:REM 


DRAW MESSAGE 


:rem 


BOP 


.-REM 


DRAW MESSAGE 


:rem 


BLIP 



REM FETCH A PARAMETER 



REM UPON ENTRY, RW CONTAINS THE ROW THE PARAMETER LIVES IN [0..24] 
REM PN CONTAINS A PARAMETER SELECTOR [ . . 20 ] 

REM EV CONTAINS A PARAMETER ENTRY VALUE 

REM AD CONTAINS AN AREA ID NUMBER 



REM UPON EXIT, 

REM 

REM 

REM 

REM 



MM CONTAINS AREA LOCATION OF AN EXITING MOUSECLICK 
XV CONTAINS A PARAMETER EXIT VALUE 
VC CONTAINS A PARAMETER VALIDITY CODE : 
INVALID 
-1 VALID 



IF EV < PF (PN, 0) THEN EV = PF (PN, 0) :REM INSURE VALID ENTRY VALUE 

IF EV > PF (PN, 1) THEN EV = PF (PN, 1) 

EV$ = STR$ (EV) :REM STRINGIZE ENTRY VALUE 

T = LEN (EV$) : W = PF (PN, 3) :REM GET A COUPLA WIDTHS 

EV$ = LEFT$ (ZR$, W - T + 1) + RIGHT$ (EV$, T - 1) :REM PAD EV$ WITH 0'S 



(0) 

(1) 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

(8) 

POINTER ( 
HB = INT ( 
LB = N - ( 



SR% 
SR% 
SR% 
SR% 
SR% 
SR% 
SR% 
SR% 
SR% 
N = 



POINTER 

POINTER 

RW 

RW 

PF (PN, 

SR% (4) 

AD 

HA (12) 



SR% ( 
N / 256 ) 
HB * 256 ) 



(EV$) 
(EV$) 



2) 
+ W 



) ) 



SYS 1024, LB, HB, 

RREG MM 



:REM SET UP FOR STRNGRECTEDIT 

:REM ENTRY STRING 

:REM EXIT STRING 

:REM TOP 

:REM BOTTOM 

:REM LEFT 

:REM RIGHT 

:REM AREA ID 

:REM AREA DATA TABLE 

:REM EDITING CURSOR AT START 

:REM ADDRESS OF ARRAY 

:REM ADDRESS HI -BYTE 

:REM ADDRESS LO-BYTE 

:REM CALL STRNGRECTEDIT 

:REM GET P-M EXIT AREA ID 



XV = VAL (EV$) :REM GET EXIT VALUE 

IF XV >= PF (PN, 0) AND XV <= PF (PN, 1) 

THEN VC = -1 : GOTO 15310 :REM INDICATE & JUMP IF VALID VALUE 



VC = :REM INDICATE INVALID 
XV = EV :REM RESTORE ENTRY VALUE 
EM$ = "BAD PARAMETER l" : GOSUB 16080 



:REM FEEDBACK 



XV$ = STR$ (XV) 
T = LEN (XV$) 



:REM 
:REM 



STRINGIZE EXIT VALUE 
LENGTH OF EXIT VALUE STRING 



XV$ = LEFT$ (ZR$, W - T + 1) + RIGHT$ (XV$, T - 1) 



:REM PAD WITH 0'S 



SR% (0) = POINTER (XV$) 
SR% (1) = POINTER (XV$) 
N = POINTER ( SR% ( ) 
HB = INT ( N / 256 ) 



;REM ENTRY STRING 
:REM EXIT STRING 
) :REM ADDRESS OF ARRAY 
:REM ADDRESS HI -BYTE 
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15380 
15390 
15400 
15410 
15420 
15430 
15440 
15450 
15460 
15470 
15480 
15490 
15500 
15510 
15520 
15530 
15540 
15550 
15560 
15570 
15580 
15590 
15600 
15610 
15620 
15630 
15640 
15650 
15660 
15670 
15680 
15690 
15700 
15710 
15720 
15730 
15740 
15750 
15760 
15770 
15780 
15790 
15800 
15810 
15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 



LB a N - ( HB * 256 ) 
SYS 1024, LB, HB, 

RETURN 



:REM ADDRESS LO-BYTE 

:REM CALL STRNGRECTEDIT TO UPDATE EXIT VALUE 



REM 



RECORD A SOUND FRAME 



IF TD + DZ ( D(0) ) < MD 



AND 



FR <= MF 



AND 



TS <= MS 



THEN 15510 



EM$ a "NO ROOM TO RECRD" : GOSUB 16080 
RR = : RETURN 



:rem 
:REM 



NO-ROOM FEEDBACK 
SET RESULT AND LEAVE 



FOR N = TO DZ ( D (0) ) :REM IF ROOM, STORE DATA 

: FD ( TD + N ) = D (N) :REM STORE EACH FRAME ELEMENT 

: NEXT 

FF% ( FR ) = TD :REM STORE OFFSET TO THIS FRAME'S STACK DATA 

TD = TD + N :REM ADJUST TOP OF STACK 

IF FR > TF THEN TF = FR :REM IF NEEDED, UP HIGHEST RECORDED FRAME 

CM$ = "FRAME" + STR$ ( FR ) + " REC'D" : GOSUB 5670 :REM FEEDBACK 

GOSUB 15690 :REM TYPE ONE SOUND 

AN = 94 : GOSUB 6660 :REM NORMALIZE COUNTER 

FR = FR + 1 :REM UPDATE FRAME COUNTER 

IF FR > MF THEN FR = 1 :REM WRAPAROUND 

GOSUB 5570 :REM SHOW UPDATE ON SCREEN 

RR = -1 :REM SET RESULT 

RETURN 



REM TYPE ONE SOUND 



VOL 15 : SOUND 1, 3000, 4, 0, 0, 0, 2, 200 :REM 

GOSUB 15830 :REM LET SOUND FINISH 

VOL CV : RETURN :REM RESTORE VOLUME & GIT BACK 



BEEP LOUD 



REM TYPE THREE SOUND 



RAZZ LOUD 



VOL 15 : SOUND 1, 8000, 15, 1, 0, 200, 1 :REM 

GOSUB 15830 :REM LET SOUND FINISH 

VOL CV : RETURN :REM RESTORE VOLUME & GIT BACK 



REM LET SOUND FINISH 



DO : LOOP UNTIL PEEK (4741) = 255 AND PEEK (4738) 
RETURN 



255 



REM SHOW FRAME, WITH RECORDED CHECK 

IF TF >= FR THEN 15940 :REM IF FRAME'S BEEN RECORDED, JUMP 

CM$ b "NOT RECORDED YET" : GOSUB 5670 :REM FEEDBACK 
GOSUB 15760 :REM TYPE 3 SOUND 



GOSUB 16000 

RETURN 



:REM SHOW FRAME 



REM SHOW FRAME 



CM$ = "FRM GOES TO" + STR$ (FR) : GOSUB 5670 :REM 
GOSUB 15690 :REM TYPE ONE SOUND 

FOR N = 1 TO 250 : NEXT :REM PAUSE 



FEEDBACK 
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16030 
16040 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16210 
16220 
16230 
16240 
16250 
16260 
16270 
16280 
16290 
16300 
16310 
16320 
16330 



RETURN 



REM SEND AN ERROR MESSAGE 



VOL 15 :REM 

DO WHILE EM$ <> • , " :REM 
TP$ = LEFT$ (EM$, 16) 



FOR N = 
CM$ = 
GOSUB 
FOR P 
CM$ = 
FOR P 
NEXT 
EM$ = 
LOOP 

VOL CV 

RETURN 



1 TO 

TP$ : GOSUB 5670 

15760 

= 1 TO 120 : NEXT 

"" : GOSUB 5670 

= 1 TO 60 : NEXT 



MAX NOISE 
PRINT 'TIL 
:REM 

:REM 

:REM 

:REM 

:rem 
:REM 
:REM 



PRINTED 
GRAB A HUNK 
FLASH IT TWICE 
FLASH IT 
TYPE 3 SOUND 
PAUSE 
BLANK IT 
PAUSE 



MID$ ( EM$, 17, 16 ) :REM NEXT PIECE 



:REM 



RESTORE VOLUME 



REM ERROR HANDLER 



EM$ = ERR$ ( ER ) + " IN" + STR$ (EL) :REM BUILD ERROR MESSAGE 
GOSUB 16080 :REM SEND IT 
RESUME NEXT :REM GET BACK 



REM PAUSE 

FOR N = 1 TO 100 : NEXT N : RETURN 



READY. 
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Appendix A: 
Useful Conventions 



By useful conventions, I mean: abbreviations, jargon, number formats, system termi- 
nology, etc. I try to: hold this stuff to a minimum; use the most natural forms of expres- 
sion; keep to the terminology Commodore uses in their C-128 Programmer's Reference 
Guide; and be consistent in my usage. Here's a list: 

Bits, Nibbles, Bytes, And Words 

These four terms describe convenient chunks of computer number representation. 

A bit is the smallest value a computer diddles with. A bit can take on either of the values 

Oor 1. 

A nibble is four bits. That's half a byte, or one-fourth of a word. 

A byte is eight bits. That's two nibbles, or half a word. 

A word is sixteen bits. That's four nibbles, or two bytes. 

Books 

I use abbreviations for the following book titles. When I refer to page numbers, 
they're from these specific editions. 

C-128 Prg Commodore 128 Programmer's Reference Guide, by Larry 

Greenley & others (Bantam Books, Inc. First edition. February, 
1986.) 

C-128 Ints Commodore 128 Internals, by K. Gerits & others (Abacus Soft- 

ware. First edition. October, 1985.) 

C64/128 

S&GP Commodore 64/128 Graphics And Sound Programming, 2nd Edi- 

tion, by Stan Krute (TAB BOOKS Inc. Second edition. 1986.) 

8502 Registers 

I use A to indicate the 8t»02's accumulator, X for the X register, and Y for the Y 
register. 

Kernel Functions 

I use the kernal function names found on pages 414-457 of the C-128 Prg. In most 
cases, I'll have the function's jump table address nearby, in hexadecimal format. When 
I can come up with a reasonable set of words, I use that information to capitalize the 
kernel function name. And, like Commodore, I can never remember how to spell kernel, 
or is it kernal ? 
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examples: TkSA $FF96 Talk Secondary Address 

MemTop $FF99 Memory Top 
Prlmm $FF7D Print Immediate 

Memory Locations 

I use the memory location names found on pages 502-540 of the C-128 Prg. As with 
kernel functions, you'll usually find the actual address nearby, in hexadecimal format. 
And when I can come up with a reasonable set of words that fit the name, I use that 
information to capitalize the names. 

examples: GarbFl $0011 Garbage Flag 
AryTab $0031 Array Table 

Miscellaneous Terms 

0-based, 

1-based Sometimes in computer work we start counting with 0, some- 

times we start with 1. These are adjectives I use to distinguish 
the two types of counting. 

assembly language 

A language with a very low level of abstraction, assembly lan- 
guage allows/requires you to program a computer by direct use 
of memory locations and chip registers. Assembly language in- 
structions translate directly and mechanically into equivalent ma- 
chine language instructions for the computer's processor. 

C-ASCII Short for Commodore ASCII. The code numbers for the set of 

text and control characters used by the C-128. Similar to but dis- 
tinct from the standard ASCII codes. 

CIA Complex Interface Adapter. The C-128 has two of these versa- 

tile input/output/timer chips, CIA 1 and CIA 2. 

lo-byte, hi-byte 

I refer to bits 0..7 of a word as the lo-byte, bits 8. .15 as the 
hi-byte. 

lo-nibble, hi-nibble 

I refer to bits 0..3 of a byte as the lo-nibble, bits 4. .7 as the hi- 
nibble. 

memory quadrant 

A 16,384-byte piece of memory. That's one quarter of the proces- 
sor's 65,536-byte memory map. The VIC chip does some of its 
work based on a default quadrant. In this book, I often qualify 
four quadrants with a numeric adjective, as follows: 
zeroth quadrant $0000-$3FFF 

first quadrant $4000-$7FFF 

second quadrant $8000-$BFFF 

third quadrant $C000-$FFFF 
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machine language 

The actual numeric code that controls the operations of a com- 
puter's processor. An assembler takes a program written in as- 
sembly language and turns it into machine language. 

MMU Memory Management Unit. To the programmer, the MMU is 

a set of primary and secondary registers that control aspects of 
the C-128's memory mapping. Check out pages 458-471 of the 
C-128 Prg. 



object code 

p-m 

Port A, 
PortB 

source code 



the system 



Machine language produced by an assembler or compiler. 

Short for pseudo-mouse. This is when we use a joystick and/or 
the keyboard to simulate a mouse. 

Each CIA chip has two byte-sized input/output ports. This is what 
we call them. 

The program instructions a programmer actually writes. An as- 
sembler, compiler, or interpreter is used to transform this code 
into machine language. 

Think of the operational C-128 computer and its peripherals as 
an entity you interract with. This phrase is the entity's name. 
May indicate particular aspects of same, depending on context. 



Numbers 

A number without a prefix character is decimal. 

example: 22 

A number with a $ prefix is hexadecimal. 

example $F7D3 

A number with a % prefix is binary. 

example: %10110011 

I've tried to use the number format that's most appropriate to a given situation. 
In general: 

decimal numbers are used for: 

register numbers, loop counts, hardware specifications 
hexadecimal numbers are used for: 

addresses 
binary numbers are used for: 

masks, flags 
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Processors 

The C-128 has two processors, an 8502 and a Z-80. In this book we deal with the 
8502. The Z-80 is used by CP/M software. It's quite powerful, actually, and could be 
used to do graphics and sound work, but the programming tools for such tasks aren't 
widely available. So I ignore it herein. 

The 8502 is Commodore's slightly modified version of a 6502 chip. They did a simi- 
lar thing with the C-64; in that machine, the modified 6502 is called a 6510. The noticea- 
ble part of the modification involves the use of memory locations $0000 and $0001 as 
I/O ports to control several hardware functions. All three chips use the same 6502 as- 
sembly language. In this book, I use "6502" and "8502" interchangeably. So, if you 
see one, think of the other. 

VIC Registers 

Depending upon the context, I use O-based decimal register numbers, capitalized 
versions of the register names from pages 524-527 of the C-128 Prg, and/or hexadecimal 
absolute addresses. 

examples: VIC register VicRegO $D000 

VIC register 22 VicReg22 $D016 

VDC Registers 

Depending upon the context, I use 0-based decimal register numbers and/or the 
register names from Fig. 10-1 (page 294) of the C-128 Prg. 

examples: VDC register Horizontal Total 
VDC register 31 Data 
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Appendix B: 
Calling Structure Diagrams 



CRLLinG STRUCTURE DIRBRRfTlB 



The key to writing easily-debugged programs is modularity. 
Break the programming task up into a number nf mostly- 
self-contained pieces of code, now, depending on the 
content, these pieces may be called functions, routines, 
subroutines, procedures, modules, blacks, or something 
totally different. But the idea is the same. You build a 
piece nf code, get it functional, then call on it as a unit 
from other pieces. That may you get to remove one more 
layer of detail from your thought processes. You can get 
tasks done at a higher level of abstraction. 



The programs in this book are highly modular. That's 
because I detest debugging. It's nice to quickly see all 
a program's modules, and the lines of communication 
between them. Calling structure diagrams help. 



Rll the programs in this book come with a complete set 
nf calling structure diagrams. They're called that 
because they show how a program's modules call upon 
one another. In the discussion that follows, I'll describe 
the graphic vocabulary used in the diagrams. 
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In the diagram 5 ^ each routine is represented by a 
rectangle with an identifier. Here are some example; 



Instal 



Unlnstall 



Fetch R Parameter 



If it's a BR5IC 7.0 routine, the identifier matches the 
comment used in the source code., and indicates what 
the routine does, as in these examples : 



Type Dne 5ound 



Eet R File flame 



If it's a E505 assembly language routine, the identifier is 
the one used in the source code, as in these examples : 



DurHeyChk 



HRRrealni/t 



EscPrDetor 



If it's a documented routine from the C-lEB's RDIT1, the 
identifier is usually the one Commodore uses in the 
C-1EB PRE. In addition, a solid vertical line on the left 
side of the rectangle indicates it's a documented RDITI 
routine. Here are some examples : 



Ind5ta 



IndFet 



B5Dut 
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Undocumented (gasp) RDIT1 routines get a dotted 
vertical line on the left side of the rectangle. The 
identifier is the one I use in the program's source code. 
Examples : 



I FndComTKt 



FndTknTKt 



Three types of routines don't get analyzed any further 
in the calling structure diagrams : RDfTl routines, 
terminal routines J and foreign routines. 



RDm routines aren't analyzed any further — that is, I 
don't show what routines they may call on — because 
we're tracing through my code convolutions, not 
Commodore's. 



R terminal, or leaf, routine is one that doesn't call on 
other routines. 5uch a routine is marked with a solid 
horizontal line on the bottom of the rectangle. Examples 



Lod5prDat 



InitPosits 



InitHues 
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R foreign routine is one contained in another program. 
Since it's analyzed there., nn sense dning sa again. Such 
a routine is marked with a solid horizontal line on the 
bottom of the rectangle, and the name of its home 
program beneath that line. Examples : 



Install 



graf in B0 



HRBandlni/t 



g/m earn B 



DumpH-B 



tent dumps 



5ome routines are called through sectors. I indicate 
such a routine by encasing its identifier in parentheses. 
The identifier mill usually be the sector's name. 
Example 



(Reginmi) 



(RegllRQ) 



Dkay., IVe cohered hoiu the routine rectangles are set 
up. nam I'll explain how connections between routines 
are indicated. 



If one routine calls on another routine., the called 
routine is placed to the right of the caller,, and the 
two routines are connected with a line. Example : 



Santa 



Santa's Helper 
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If a routine calls an several routines, the called rautini 
are aligned vertically, and their links tn the calling 
routine lank samething like this : 



Fred 



,- UJilma 



Pebbles 



BamBam 



Df course, a called routine may call on other routines, 
mhich may call on others, and on and on. Enample : 



Universal 
Puppet 

master 



Big Ed 



Teamed 
Horses 









ITIanosodium 

Elutamate 




Bat Lard 






Zippy 
The 
Pin 


































Reddi Whip 




Sweet Erease 



Hungry 

Dogs 




Eood Food 











Eood Beer 



Talented 
Inebriates 








Bad Habits 
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Sometimes a routine that calls an other routines appears 
more than once on a single page. Dr there's no room to 
finish a string of calls in one horizontal band, but there's 
room to finish up elsewhere on the same page. Dr there's 
not enough room to list all the routines called by a 
routine in one i/ertical column., but there's room elsewhere 
on the page to finish up. In all these cases, I use a 
dotted line to indicate that there's more to look for, 
and that it can be found on the same page. Examples : 









mickey 


Walt 












rflinnie 




















Donald 




Walt 





Rnd sometimes the continuation can't fit on the same 
page, or the routine's already analyzed on another page. 
In those cases, the dotted line connects to a little box, 
and the box contains the sheet number (of that 
program's set of calling structure diagram sheets) that 
contains the rest of the analysis. Example : 



Lucy 



Ricky 
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Finally : if a rautins has been referred to previously, then 
its rectangle mill have a dotted line an the left side. 
Here's an example : 



Ricky 




Fred 




Ethel 



Well, I think that capers all the features of the calling 
structure diagrams used in this bank. I find them useful 
at all stages of my programming tasks,, and hope they 
help your own understanding. Rll IVe got to do now is 
come up with a way to automate their production. 
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Appendix C: 
Pseudo-Code 



Pseudo-code is a way of expressing computer algorithms in a language-independent, near- 
English form. It's particularly useful when documenting algorithms written in languages 
that lack modern structured features. I call the pseudo-code in this book the Pinhead 
Pseudo Code (PPC) in honor of its utter simplicity. You'll probably be able to read 
it without any fancy explanation, but completeness compels me to codify it. 

While discussing the PPC, I'll have cause to mention common programming fea- 
tures and techniques. Though I may seem to refer to all types of programs, that's just 
a stylistic easement. The type of programs I have in mind are those that are well- 
structured, modular, and do one thing at a time. 

Such a program consists of a collection of instructions. The instructions are grouped 
into subsets to ease the programmer's and computer's minds, and these groupings are 
called functions, subroutines, procedures, or some such name. In the PPC, a call to 
a subroutine is represented by a short phrase that describes the subroutine call. Here's 
an example: 

CALL on Type One Sound for a beep 

Note that the PPC keyword CALL appears in this short phrase, as does the capital- 
ized name of the called subroutine (Type One Sound), and a short explanatory clause. 
By the way, PPC keywords come completely capitalized, subroutine names have the 
first letter of each word capitalized, and instructions are uncapitalized. Sometimes a 
subroutine name is underlined, if it aids comprehension. Here's another example of a 
subroutine call. Note that it also includes the three elements (CALL, subroutine name, 
short explanatory clause): 

CALL Update Filter Window to redraw the Filter Window 

As mentioned above, a subroutine is a collection of instructions, and it has a name. 
In the PPC, each subroutine's instructions are listed after its name, indented a tab posi- 
tion. Example: 

Initialize Variables 

set all integer and real variables to 
set all strings to the empty string 
RETURN 

This subroutine has two instructions. When it finishes, it returns control to wher- 
ever it was called from, as indicated by the PPC keyword RETURN. 

A subroutine may not return control so neatly when it finishes. It may jump to some 
spot in the code other than where it was called from. The PPC keyword JUMP is then 
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used. Here's an example: 

JUMP to the System Error Handler 

Within a subroutine, instructions are carried out one after another (sequence), repeat- 
edly (loop), and/or conditionally (branching). The previous examples include instructions 
that are carried out sequentially. Here's an example of a PPC loop: 

REPEAT 

check for a keypress 
UNTIL 

the Spacebar is pressed 

The PPC keyword construction REPEAT some action UNTIL some condition is 
true is one way to indicate a loop. It's used when the action must be carried out at least 
once. Notice how I use indentation to reinforce syntax. Another PPC keyword construc- 
tion used to indicate looping is WHILE some condition is true DO some action. Here's 
an example: 

WHILE 

there's a sound being produced 

DO the following 

change the sprite's color to the next color 
move the sprite three positions to the left 

Note a few things here. First, the action may never be taken, since the conditional 
test comes first. Second, the clarifying phrase the following is stuck onto the keyword 
DO. It's there just to get dloser to the friendly english language. Third, the action taken 
can consist of more than one action. Finally, indentation again adds clarity to the syntax. 

Another keyword construction I use for loops is WAIT UNTIL some condition is 
true. It's really just a convenient way to express a REPEAT.. UNTIL loop whose action 
is no action. Here's an example: 

set sprite 1 into motion 
WAIT UNTIL 

the joystick button is pressed 
stop sprite 1 

Another loop construction used in the PPC is the FOR loop. The format is this: 
FOR each member of a set DO some action. Here's an example: 

FOR 

each integer in the range 1 to 10 
DO the following 

set the text character color to the integer's value 

print the integer 
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print the phrase "comes, in this color" 
print a carriage return 

The workhorse PPC branching statement is IF some condition is true THEN do 
some action. As in most modern programming languages, this can be extended with ELSE 
and ELSE IF clauses, as in this example: 

IF 

the up-cursor key is pressed 
THEN 

move the sprite up one position 
ELSE IF 

the down-cursor key is pressed 
THEN 

move the sprite down one position 
ELSE IF 

the left-cursor key is pressed 
THEN 

move the sprite left one position 
ELSE IF 

the right-cursor key is pressed 
THEN 

move the sprite right one position 
ELSE 

flash the message "move me, please" 

Sometimes I'll give more detail on a single instruction. This is indicated in the PPC 
by ending the single instruction with a colon (:), then indenting the block of detail be- 
neath it. 

Example: 

set screen attributes: 
set a black background 
set a black border for 40-column screen 
set a foreground character color 
make sure screen is in text mode and clear it 

Finally: sometimes I'll include extra explanatory comments in the PPC. They're 
encased in parentheses (like this) or curly brackets {like this}. 
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Appendix D: 
System Interface Summary 

System Interface Summary Sheet 1 Of 10 

G80 INSTALL.S 

BASIC 7.0: NEW command from assembly language . . 113-114 

BASIC 7.0: setting program text start 103-111 

BASIC 7.0: warm start from assembly language .... 146-147 

Kemal routine : Load ($FFD5) 139-141 

Kemal routine : SetBnk ($FF68) 118-121 

Kemal routine : SetLFS ($FFBA) 129-137 

Kemal routine : SetNam ($FFBD) 123-127 

Memory Configuration 95-101,149-151 

GRAFK 80 0.S 

GRAFK 80 l.S 

BASIC 7.0: cruising through commas in program text . . 294-312 

Low-Memory Routine : ChrGet ($0380) 307 

Low-Memory Routine : IndTxt ($03C9) 295-297 

System Global : $000D (Count) 185-190 

System Vectors: IError ($0300-$0301) 310-312 

System Vectors : BEscLk ($030C-$030D) 11-21,92-96,147-200 

System Vectors : IEscPr ($030E-$030F) 38-48, 

113-117,203-234 

System Vectors : IEscEx($0310-$0311) 65-75,134-138, 

237-276 

Tokens: crunching new commands 181-200 

Tokens: detecting new commands 162-179,211-217 

Tokens : un-crunching new commands 220-227 

Undocumented ROM Routine : FndComTxt ($43E2) . . 174-179 

Undocumented ROM Routine : FndTknTxt ($516A) . . . 174-179 
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GRAFIX 80 2.S 

Low-Memory Routine : ChrGet ($0380) 49-50, 355 

Low-Memory Routine : ChrGot ($0386) 84-86,114-116 

Memory Configuration : 200-204, 273-274, 

419-423, 457-459 

6502 Usage: deriving an absolute value 255-257 

6502 Usage: two-stage masking 450-454 
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6502 Usage: nibble transfer 439-447 

System Vectors: Error ($030O-$03Ol) 17-19,118-120, 

334-336 

Undocumented ROM Routine : GetByt ($87F4) 60-61,356,361 

Undocumented ROM Routine : GetWdByt ($8803) . . . 69-72, 98-101 

GRAFIX 80 3.S 

BASIC 7.0: NEW command from assembly language . . 587-589 

BASIC 7.0: setting program text start 576-585 

BASIC 7.0: warm start from assembly language .... 591-592 

Low-Memory Routine : ChrGet ($0380) 50-51,82-83,402 

Low-Memory Routine : ChrGot ($0386) 92-93 

Memory Configuration : 295-299, 356-358, 

466-470, 535-537 

6502 Usage : two-stage masking 483-486 

System Vectors : IError ($0300-$0301) 18-20,383-385, 

561-563 

Undocumented ROM Routine : GetByt ($87F4) .... 64-65,403 

Undocumented ROM Routine : GetWdByt ($8803) . . . 85-88 

System Interface Summary Sheet 3 Of 10 

GRAFIX 80 4.S 

6502 Usage : deriving an absolute value 113-114,429-430 

6502 Usage: multi-byte division by power of 2 .... 231-236 

6502 Usage: multi-stage masking 285-301 

GRAFIX 80 5.S 

Clearing the screen via BSOut 22-24 

Kemal routine : BSOut ($FFD2) 22-24 

Kernal routine : Swapper ($FF5F) 20,30 

Low-Memory Routine : ChrGot ($0386) 298-300 

Undocumented ROM Routine : GetByt ($87F4) .... 309-310 

VDC: clearing the graphics screen 54-77 

VDC: colornibbles 438-459 

VDC: fetching/storing a pixel's byte 194-208 

VDC: figuring a pixel's bit position in its byte 150-154 

VDC: figuring a pixel's byte's address 113-148 

VDC: memory access 268-283 

VDC: plotting/erasing a pixel 229-239 

VDC: registers 18-19 (Update Address) 60,194 

VDC: register 30 (Word Count) 69 

VDC: register 31 (Data) 66,269,278 

VDC: assorted masks 361-378 

S/M ASM 1 A.S 

BASIC 7.0 : passing a parameter block to 
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an assembly language routine 18-144 

BASIC 7.0 : receiving values back from 

an assembly language routine ........ 152 

System Interface Summary Sheet 4 Of 1 

Kemal Routine : IndFet ($FF74) 492-497 

6502 Usage : dealing with a parameter block 

passed from BASIC 7.0 324-360,470-508 

S/M ASM 1 B.S 

Kemal Routine : IndFet ($FF74) 66-73, 76-89, 94-104, 

125-127, 603-605 

Kemal Routine : IndSta ($FF77) 118-131,539-548, 

584-609, 619-621 

Keycodes: series testing 155-257 

6502 Usage : dealing with a string 

passed from BASIC 7.0 66-136 

6502 Usage: multi-byte division by power of 2 .... 337-346 

6502 Usage: multiplication 488-494 

Sprites : converting sprite position to screen position . . . 322-346,376-391 

S/M ASM 1 C.S 

Character ROM : finding a character's image bytes . . . 397-418 
Codes : converting a Commodore ASCII code to 

a Set 1 screen poke code 512-598 

Kemal Routine: IndFet ($FF74) 41-43,170-173 

Kemal Routine : IndSta ($FF77) 20-23, 45-47, 55-61 

Memory Configuration 475-481,490-492 

VIC Bit Map : converting a 40-column text screen position 

to an equivalent bit map address 420-473 

VIC Bit Map: drawing a character from ROM 378-499 

6502 Usage: multiplication 427-465 

System Interface Summary Sheet 5 Of 10 

S/MASM2A.S 

CIAs : timer usage 257-264 

Joysticks : reading hardware directly 414—419, 476-478, 

531-536 

Keyboard : reading hardware directly 398-404, 482-489, 

531-536 

Keycodes : loop testing 332-341 

Memory Configuration 390-396,516-517 

Sprites : motion registers 443-446 

Sprites : shadow position registers 493-500 

System Vectors : KeyChk ($033C-$033D) 224-235, 298-303 
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System Vectors : IIRQ($0314-$0315) 239-249,290-295 

S/M ASM 2 B.S 

Kemal Routine : IndFet ($FF74) 501-503 

Kernal Routine : IndSta ($FF77) 492-494,507-508 

Sprites : motion registers 16-21 

VIC: figuring out which RAM bank it's operating on . . 593-605 
VIC Bit Map : converting a 40-column text screen position 

to an equivalent bit map address 392-404 

VIC Bit Map: inverting an 8-pixel by 8-pixel cell .... 409-428 
VIC Text Screen : figuring the current screen's base 

address 607-634 

VIC Text Screen : figuring a screen position's offset 

from the screen base 551-569 

6502 Usage: nibble swapping 411-426 
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S/MASM2C.S 

Sprites: motion data 1076-1155 

VIC Bit Map : row starting addresses 18-28,30-39 

VIC Text Screen: row starting addresses 19-28,41-50 

S/M HELP PACKER 

BASIC7.0: BANK 1370 

BASIC7.0: BLOAD 1360,1470,1480 

BASIC7.0: BSAVE 1600 

BASIC 7.0: disk status 1620 

MAKE S/M VARS 

BASIC7.0: CLOSE 2830 

BASIC7.0: OPEN 1330 

BASIC 7.0: PRINT* (to disk file) 1400-2820 

MAKE 40C SCREENS 

BASIC7.0: BLOAD 1530,1540,2940 

BASIC7.0: BSAVE 2420 

BASIC7.0: COLOR 1350 

BASIC 7.0: disk status 2450 

BASIC 7.0: error handling 3230-3270 

BASIC 7.0: GRAPHIC 1340,1750,1820, 

2270, 2280 

BASIC7.0: TRAP 1330 

System Globals: FA($00BA) 1520 

System Globals : Pntr($00EC) 2120-2180 

System Globals: TblX ($0OEB) 2120-2180 
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40CEDIT 

Codes : converting a Commodore ASCII code to 

a Set 1 screen poke code 611-696 

Keycodes : serial testing 164-292 

System Globals: Pntr($00EC) 338-339,392, 

445-446, 454, 497, 

514, 530, 546 
System Globals : Rvs($O0F3) 267-270,281-284, 

324-325 
System Globals : TblX($00EB) 412,562,575,591, 

603 
VIC Text Screen: invert a character 124-135,328-329 

SOUND/MUSIC LAB 

BASIC7.0: BANK 1330 

BASIC 7.0 : BLOAD 3200,3210,3220,3230 

BASIC7.0: BOX 3420,4440,4650 

BASIC7.0: CHAR 3450,3690,3840, 

3950, 4060, 4210, 
4340, 4460, 
4670-4700, 4840, 
5030,5220,5320, 
5450, 5610, 
5680-5690, 5920, 
6530, 12960 

BASIC 7.0: CLOSE 2550,11000,13910, 

14600 
BASIC 7.0: COLOR 2930,2940,2960, 

System Interface Summary Sheet 8 Of 10 

2980, 3410, 3440, 
3680, 3820, 3940, 
4050, 4200, 4330, 
4430, 4450, 4640, 
4660, 4830, 4970, 
5210, 5310, 5440, 
5600, 5670, 5910 

BASIC 7.0: disk status 10900,13590,13840 

BASIC7.0: DRAW 3430 

BASIC 7.0: ENVELOPE 2720,7890,9990 

BASIC 7.0: error handling 16260-16280 

BASIC7.0: FILTER 2810,9250,10080 

BASIC 7.0: GRAPHIC 1640,2950,2970,2990 
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BASIC 7.0 : INPUT# (from disk file) 1960,2070,2140, 

2200, 2250, 2290, 
2300, 2350, 2400, 
2450, 2510, 2520, 
10700-10730, 10820, 
10870 

BASIC7.0: MOVSPR 3300,11670,12130 

BASIC 7.0: OPEN 1840,10630,13580, 

14300 
BASIC 7.0 : passing a parameter block to 

an assembly language routine 6770-6920, 

11140-11280, 
15060-15210 

BASIC7.0: PLAY 6990,7120,9960 

BASIC 7.0: PRINT* 13630-13660,13700, 

13750, 13800, 13830, 
System Interface Summary Sheet 9 Of 10 

14310, 14360, 14400, 
14430, 14460, 14490, 
14520, 14550, 14580, 
14600 

BASIC7.0: RREG 6930,9820,11290, 

11750, 12890, 14220, 
15220 

BASIC 7.0: SOUND 6600,14790,14810, 

14830, 15690,15760 

BASIC7.0: SPRCOLOR 3320 

BASIC 7.0 : SPRITE 1650, 3310 

BASIC7.0: TEMPO 2760,8550,10050, 

12710 

BASIC7.0: TRAP 1340 

BASIC7.0: VOL 2750,8130,10020, 

12660, 15690, 15710, 
15760, 15780, 16080, 
16200 

BASIC 7.0: memory configuration 1670-1700,1750-1770 

Memory Configuration 1670-1700, 

1750-1770, 
11680-11700, 
12010-12020, 
12090-12120 

Printing 14300-14600 

System Globals : FA($O0BA) 1830,14610 

System Globals : FreTop ($0035) 1680, 1760 

System Globals : GraphM ($00D8) 11660,12120 
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System Globals : MaxMeml ($0039) 1690,1770 

System Globals : SoundTimeffi ($1285) 15830 

System Globals: SoundTimeLo ($1282) 15830 

System Globals : VM1 ($0A2C) 11620,12010 

VIC: setting VICs RAM bank 11680,12090 

VIC: setting VICs RAM quadrant 11690,12020,12100 

VIC: setting the screen location 11700,12010,12110 
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Appendix F: 
VIC Screen Colors 



- black 


8 - orange 


1 - white 


9 - brown 


2 -red 


10 - light red 


3 - cyan 


1 1 - dark gray 


4 - purple 


12 - medium gray 


5 - green 


13 - light green 


6 • blue 


14 -light blue 


7 - yellow 


15 - light gray 
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Appendix G: 
Sprite Shadow Registers 

Two sets of memory locations serve as sprite shadow registers. That is, each time the 
C-128's vertical retrace interrupt occurs, the values in these locations are used to up- 
date a number of sprite-related VIC chip registers. These registers are the easiest way 
to work with sprites from assembly language (so long as you haven't disabled the verti- 
cal retrace interrupt). 

$11D6-$11EA VIC CHIP SHADOW REGISTERS 

These 21 memory locations are used by the C-128 to update 21 VIC chip registers, 
triggered by the vertical retrace interrupt. By poking appropriate values directly into 
these locations, you can update the VIC registers. 

The mapping of memory locations into VIC registers is as follows (addresses are 
given in hexadecimal and decimal): 



memory 


VIC register 


VIC regi 


location 


location 


number 


$11D6 


4566 


$D000 


53248 





$11D7 


4567 


$D001 


53249 


1 


$11D8 


4568 


$D002 


53250 


2 


$11D9 


4569 


$D003 


53251 


3 


$11DA 


4570 


$D004 


53252 


4 


$11DB 


4571 


$D005 


53253 


5 


$11DC 


4572 


$D006 


53254 


6 


$11DD 


4573 


$D007 


53255 


7 


$11DE 


4574 


$D008 


53256 


8 


$11DF 


4575 


$D009 


53257 


9 


$11E0 


4576 


$D00A 


53258 


10 


$11E1 


4577 


$D00B 


53259 


11 


$11E2 


4578 


$D00C 


53260 


12 


$11E3 


4579 


$D00D 


53261 


13 


$11E4 


4580 


$D00E 


53262 


14 


$11E5 


4581 


$D00F 


53263 


15 


$11E6 


4582 


$D010 


53264 


16 


$11E7 


4583 


$D01E 


53278 


30 


$11E8 


4584 


$D01F 


53279 


31 


$11E9 


4585 


$D013 


53267 


19 


$11EA 


4586 


$D014 


53268 


20 



brief description 

sprite O.horizontal lo-byte 
sprite 0,vertical 
sprite 1, horizontal lo-byte 
sprite 1, vertical 
sprite 2, horizontal lo-byte 
sprite 2, vertical 
sprite 3,horizontal lo-byte 
sprite 3,vertical 
sprite 4, horizontal lo-byte 
sprite 4,vertical 
sprite 5, horizontal lo-byte 
sprite 5,vertical 
sprite 6,horizontal lo-byte 
sprite 6,vertical 
sprite 7,horizontal lo-byte 
sprite 7,vertical 
sprites 0-7, horizontal 
hi-bits 

sprite to sprite collision 
latch 

sprite to background col- 
lision latch 

light pen latch horizontal 
light pen latch vertical 
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$117E-$11D5 SPRITE SPEED AND DIRECTION TABLES 

These 88 memory locations (11 for each sprite) are used by the C-128 to implement 
sprite motion. The BASIC 7.0 sprite motion commands plug them with values, then the 
vertical retrace interrupt routines use those values to adjust the VIC chip registers that 
position the sprites. You get sprites to move by poking appropriate values directly into 
these locations. 

Although not documented, a little experimentation let me figure out enough to be 
able to use these tables. A Pascal declaration of this area of memory would look like this: 



spriteSpdDirTables 


= ARRAY [0..7] < 


DF spriteSpdD 


irData 


spriteSpdDirData 


= RECORD 








speed: 


byte; 


{offset 0} 




unknownl: 


byte; 


{offset 1} 




quadrant: 


byte; 


{offset 2} 




deltaX: 


word; 


{offset 3} 




deltaY: 


word; 


{offset 5} 




unknown2: 


longWord 


{offset 7} 




END; 







Here's a little description of the spriteSpdDirData fields I've figured out: 

spriteSpdDirData. speed— The speed at which the sprite will move. The higher the 
value, the faster the motion. 

spriteSpdDirData. quadrant— The general direction of motion. 

spriteSpdDirData. deltaX— A scaled representation of the absolute amount a sprite 
moves horizontally each interrupt. See samples below. 

spriteSpdDirData.deltaY— A scaled representation of the absolute amount a sprite 
moves vertically each interrupt. See samples below. 

If you turn a sprite on, then poke appropriate values into these memory locations, 
the C-128's vertical retrace interrupt mechanism will move the sprite for you. Very useful 
stuff. Here are some sample values that'll work; you should be able to find others via 
inspired inference and/or experimentation. 



To move north: 






speed 


= 


$03 


unknownl 


= 


$00 


quadrant 


= 


$00 


deltaX 


= 


$0000 


deltaY 


= 


$FF7F 


To move northeast: 






speed 


= 


$03 


unknownl 


= 


$00 


quadrant 


= 


$00 



372 



deltaX 


= 


$2B5A 


deltaY 


= 


$2B5A 


To move east: 






speed 


= 


$03 


unknownl 


= 


$00 


quadrant 


= 


$01 


deltaX 


= 


$FF7F 


deltaY 


= 


$0000 


To move southeast: 






speed 


= 


$03 


unknownl 


= 


$00 


quadrant 


= 


$01 


deltaX 


= 


$2B5A 


deltaY 


= 


$2B5A 


To move south: 






speed 


= 


$03 


unknownl 


= 


$00 


quadrant 


= 


$02 


deltaX 


= 


$0000 


deltaY 


= 


$FF7F 


To move southwest: 






speed 


= 


$03 


unknownl 


= 


$00 


quadrant 


= 


$02 


deltaX 


= 


$2B5A 


deltaY 


= 


$2B5A 


To move west: 






speed 


= 


$03 


unknownl 


= 


$00 


quadrant 


= 


$03 


deltaX 


= 


$FF7F 


deltaY 


= 


$0000 


To move northwest: 






speed 


= 


$03 


unknownl 


= 


$00 


quadrant 


= 


$03 


deltaX 


= 


$2B5A 


deltaY 


= 


$2B5A 
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To save you a bit of arithmetic, here are the starting addresses for each sprite's 
spriteSpdDirData record: 



Sprite 


$117E 


4478 


Sprite 1 


$1189 


4489 


Sprite 2 


$1194 


4500 


Sprite 3 


$119F 


4511 


Sprite 4 


$11AA 


4522 


Sprite 5 


$11B5 


4533 


Sprite 6 


$11C0 


4544 


Sprite 7 


$11CB 


4555 
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Appendix H: 
8563 VDC Registers 
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Appendix I: 
8563 VDC Screen Colors 



Color Nibble 


Decimal 


Color 


BASIC 7.0 


(in 


binary) 


i 


Equivalent 


Name 


Color Number 


R 


G 


B 


I 








% 














black 


1 


% 1 


1 


1 


1 


15 


white 


2 


% 1 











8 


dark red 


3 


% 


1 


1 


1 


7 


light cyan 


4 


% 1 





1 


1 


11 


light purple 


5 


% 


1 








4 


dark green 


6 


% 





1 





2 


dark blue 


7 


% 1 


1 





1 


13 


light yellow 


8 


% 1 





1 





10 


dark purple 


9 


% 1 


1 








12 


dark yellow 


10 


% 1 








1 


9 


light red 


11 


% 


1 


1 





6 


dark cyan 


12 


% 








1 


1 


medium gray 


13 


% 


1 





1 


5 


light green 


14 


% 





1 


1 


3 


light blue 


15 


% 1 


1 


1 





14 


light gray 


16 


R 


G 


B 


I 









Note: The four color nibble bits correspond to the four video signals Red, Green, 
Blue, and Intensity. This is indicated by the letters R, G, B, and I in the chart above. 
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Appendix J: 
8563 VDC Attribute Bytes 



Each character position in an 8563 VDC display has an attribute byte. Each bit in the 
attribute byte controls an aspect of the character displayed at that position: 



BIT 

7 
6 
5 
4 
3 
2 
1 




ATTRIBUTE IF SET TO 1 

alternate character set 

reverse video 

underline 

blinking 

foreground color has red component 

foreground color has green component 

foreground color has blue component 

foreground color has intensity component 
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Appendix K: 
Poke Codes 



Poke 
code 


Set 

1 


Set 
2 


Poke 
code 


Set 

1 


Set 
2 


Poke 
code 


Set 
1 


Set 
2 


Poke 
code 


Set 
1 


Set 
2 





c 


e 
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[y 
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64 
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a 
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E 
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a 
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D 


70 
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G 


9 
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H 


PI 
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1 


G 
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H 
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1 


H 
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I 
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V 
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Li 
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148 


II 
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84 


1 


T 


212 


II 


u 
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Poke 
code 


Set 
1 


Set 
2 


Poke 
code 


Set 
1 


Set 

2 


Poke 
code 


Set 
1 


Set 
2 


Poke 
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Set 

1 


Set 
2 
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Appendix L: 
SID Registers 
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Appendix M: SID Note Values 
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Note Values 
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Appendix N: 
ANDing And ORing 



ANDing and ORing are logical operations your 
Commodore 128 uses to play with bits and check 
on the truth of complex expressions. I'll try to 
give you a brief glimpse of how they work. 
First, a few conventions: 

—When the computer tries to decide 
whether a number is true or false, any 
nonzero number is considered true. 

—When the computer looks over a com- 
parison, and decides that the com- 
parison is true, it assigns it the value 
- 1. A false comparison is assigned 
the value 0. 

Here's a brief program that illustrates 
these two conventions at work: 

10 IF 8 THEN PRINT "8 IS TRUE" 
20 IF THEN PRINT "0 IS TRUE": 

GOTO 40 
30 PRINT "0 IS FALSE" 
40 PRINT (9 = 8) 
50 PRINT (9 = 9) 

Running the program will give these results: 

8 IS TRUE 
IS FALSE 


-1 

The Commodore 128 performs ANDing and 
ORing on numbers in the range -32768 to 
+ 32767. The numbers first have any fractional 
parts dropped, and then they're converted into 
16-bit binary format. Here are some examples: 



ORIGINAL FRACTION 16-BIT BINARY 
VALUE DROPPED 

-1 -1 1111 1111 1111 1111 

254.75 254 00000000 1111 1110 

513 513 00000010 0000 0001 

00000000 0000 0000 

15.4 15 00000000 00001111 

Note that I have inserted spaces into the 
16-bit binary values just to make them easier 
for humans to read. 

When two numbers are ANDed together, 
they're first put into this chopped-off 16-bit 
binary format. Then corresponding bits are 
ANDed together according to the following ar- 
bitrary rules: 

11 

ANDO AND 1 ANDO AND 1 

1 

The result is then converted back to deci- 
mal form. Here are some examples of ANDing: 



AND 



- 1 decimal 
decimal 



1111 1111 1111 1111 binary 

AND 0000 0000 0000 0000 binary 

0000 0000 0000 0000 binary 

decimal 



AND 



255 decimal 
15 decimal 



0000 0000 1111 1111 binary 

AND 0000 0000 0000 1111 binary 

0000 0000 0000 1111 binary 

15 decimal 
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In graphics and sound programming on the 
Commodore 128, ANDing is often used to turn 
certain bits in a register off. For example, if 
you wanted to turn off bits 4, 5, 6, and 7 in 
a register, you'd AND the register value with 
the number 15. Take a look at the last exam- 
ple to see why this is so. 

When two numbers are ORed together, 
they're first put into the familiar chopped-off 
16-bit binary format. Then corresponding bits 
are ORed together according to the following 
arbitrary rules: 

(sound familiar?) 



OR 0000 0000 0000 0000 binary 





PRO 






OR1 



1 

PRO 

1 



1 
OR1 



The result is then converted back to deci- 
mal form. Here are some examples of ORing: 



OR 



-1 





decimal 
decimal 





1111 


1111 1111 


1111 


binary 




0000 
0000 


OR 


-1 

537 
131 


decimal 

decimal 
decimal 


OR 


0010 0001 
0000 1000 


1001 
0011 


binary 
binary 




0000 


0010 1001 


1011 


binary 



67 



decimal 



1111 1111 1111 1111 binary 



In graphics and sound programming on the 
Commodore 128, ORing is often used to turn 
certain bits in a register on. For example, if 
you wanted to turn on bits 0, 1, and 7 in a reg- 
ister, you'd OR the register value with the 
number 131. Take a look at the last example 
to see why this is so. 

So much for a brief look at ANDing and 
ORing. They're really quite remarkable func- 
tions. In fact, your Commodore computer 
spends most of its time, at its deepest subcon- 
scious levels, ANDing and ORing away several 
million times each second. 
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Appendix O: 
Merlin- 128 Pseudo-Ops 

Pseudo-ops are fake assembly language instructions that let you control an assembler 
and the code it produces. Each assembler has its own pseudo-ops. The Merlin-128 
assembler has a particularly rich set. Here's a list of the few I've used in this book's 
source code, along with brief explanations, examples, and usage tips: 
DCI— Tells the assembler to put a string of C-ASCII 

character codes into the program, with the hi bit 

(bit 7) of the last character set to 1. Setting this 

bit makes it easy for routines to know when 

they've come to the end of a string. The Com- 
modore machines use this format to store the text 

of BASIC commands. And that's how it's used 

in this book's programs, to add commands to 

BASIC. 
DDB— Tells the assembler to put an actual word-sized 

value into the code stream, hi-byte first. For ex- 
ample, DDB 310 tells the assembler to put the 

values 1 and 54 into the code, in that order. 

(Think about it.) Not used too often, since the 

standard 6502 word-ordering is lo-byte first. But 

it comes in handy where there's an assembly lan- 
guage data interface with BASIC'S variables, 

parts of which are stored this way. 
DFB— Tells the assembler to put an actual byte-sized 

value into the code stream. For example, DFB 

%10101111 tells the assembler to put the binary 

value %10101111 into the code. And DFB 150 

tells it to insert the decimal value 150. Used to 

set up constants. 
DS— Tells the assembler to reserve a number of bytes 

of storage. For example, DS 1 tells it to reserve 

one byte of space, and DS 4 tells it to reserve 

four bytes. Used to set up variables. 
HEX— Tells the assembler to put an actual byte-sized 

hexadecimal value into the code stream. Unlike 

other assembler commands, you don't need a $ 

to indicate hexness. For example, HEX 25 tells 

the assembler to put the hexadecimal value $25 

into the code. Used to set up constants that are 

best expressed in base 16. 
ORG— Tells the assembler where the next instruction 
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should be compiled to run at. For example, ORG 
$1300 tells the assembler the next instruction 
should be compiled to run at memory location 
$1300. It's usually used once, at the beginning 
of a program. 

PAG— Tells the assembler to output a formfeed com- 
mand. I use this command so each part of a multi- 
file program starts printing on a fresh page. 
Doesn't affect the code at all. You won't see PAG 
commands in the listing; Merlin doesn't print their 
lines. You will see them if you purchase the pro- 
gram disks. 

PUT— Tells the assembler to grab another source code 
file and use it to continue the current assembly. 
This pseudo-op lets you assemble programs 
whose source code is too large to fit into the com- 
puter in one chunk. For example, PUT "GRA- 
FIX 80 2. S" pulls in a source code file named 
Grafix 80 2. S. If your assembler doesn't have this 
facility, you can still put together large programs, 
but you'll have to do a lot of grubwork. 

TTL— Tells the assembler to use a particular string as 
a title at the top of each page of a listing. For ex- 
ample, TTL "Grafix 80 2.S" will put the title Gra- 
fix 80 2. S at the top of each subsequent page of 
a listing. This pseudo-op is particularly useful if 
you want to change a listing's title partway 
through the listing. 
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Appendix P: Last 
Minute Program Adjustments 

As this book went to press, I found some adjustments that should be made to the pro- 
grams. They're minor in the sense that the programs work just fine without them. And 
it's too late to go back and reprint the listings. But my aesthetic sense is a vicious thing, 
and won't let me relax into an escape from truth. 
Adjustment 1 

Line 1990 of the program G80 Test Suite should have its comment adjusted, from 

REM FIVE TESTS (2 VARIANTS EACH) 

to 

REM SIX TESTS (2 VARIANTS EACH) 
Adjustment 2 

Similarly, Line 1970 of the program G40 Test Suite should have its comment ad- 
justed, from 

REM FIVE TESTS (2 VARIANTS EACH) 

to 

REM SIX TESTS (2 VARIANTS EACH) 
Adjustment 3 

Line 212 of Grafix 80 4.S should be changed from 

:Tstl LDX #FETokFlg ;our commands start with FE 

to 

:Tstl CPX #FETokFlg ;our commands start with FE 

Remarkably, the program works with the LDX. Can you figure out why? That stroke 
of good/bad luck is why I snoozed thru this typo. 
Adjustment 4 

Line 196 of Grafix 80 4.S should have its comment adjusted, from 

; if sum is <15, it's two part 
to 

; if sum is <16, it's two part 
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Adjustment 5 

Here's another strangey. Grafix 80 5.S has a routine that clears the 80-column 
graphics screen via a series of block writes. It was one of my first 80-column graphics 
routines, and it works, but the block write procedure is slightly incorrect. Beats me 
why it works. 

Anyways, when I wrote Section 3.2.34 and got to thinking seriously about block 
writes, I realized I'd screwed up this old routine. Here's how to fix the offending code. 
Lines 66 thru 70 of Grafix 80 5.S currently read 



66 LDX #DataReg 

67 JSR VDCRegPoke 
68 

69 LDX #BytCntReg 

70 JSR VDCRegPoke 



; store as the data to 
;. . .be written 

;tell the chip to store 
;. . . 256 copies of it 



The correct version replaces line 68 with seven new lines. I also change the last 
two lines' comments. The corrected code looks like this (The new lines' numbers are 
in boldface): 



66 LDX #DataReg 

67 JSR VDCRegPoke 
68 

69 LDX #24 

70 JSR VDCRegPeek 

71 AND #01111111 

72 JSR VDCRegPoke 
73 

74 LDA #255 

75 LDX #BytCntReg 

76 JSR VDCRegPoke 



store as the data to 

... be written 

. . . and write one byte 

this reg controls block 

. . . stuff via bit 7 

clear bit 7 for block write 

store set reg 

write 255 more bytes 
. . . for a total of 256 
write those bytes 



This fix adds twelve bytes to the Grafix 80 object code. 



393 



Index 



Index 



1 -based, 348 
1PART routine, 61 

2PART routine, 61 

3PART routine, 61 

40-column screen 
drawing characters on, 140 
finding, 141 
inverting cells in, 144 
saving color information on, 157 
working without 80-column moni- 
tor and, 157 

40C EDIT 
selected algorithms for, 206 
source codes for, 308-318 
structure diagram for, 166 
subroutine start line for, 188 

80-column graphics package 

adding commands to, 27 

calling, 25 

clearing screen of, 15 

color control nibbles in, 15 

color nibbles in, 17 

pixel operations for, 1 5 

setup for text or graphics mode in, 
15 

use of undocumented ROM 
routines with, 18 
8502 usage 

conventions for, 347 



deriving absolute values with, 12 
multi-byte division by powers of 2, 
14 

nibble transfer, 13 
two-stage masking with, 13 



absolute value, derivation of, 12 
address, start hi and lo, 16 
algorithms 

40C EDIT, 206 

Bresenham's generalized line 
drawing, 23 

drawing horizontal line, 21 

drawing vertical line, 22 

G80INSTALL, 52 

geometric figure, 33 

Grafix 80, 52-66 

HELP packer, 202 

MAKE 40C SCREEN, 203 

MAKE S/M VARS, 202 

point list, 25 

recording a sound/music frame, 
151 

screen clearing, 15 

S/M ASM 1, 191 

S/M ASM 2, 197 

selected, 51-69 

sound and music lab, 190-235 
AND operation, 13, 16, 389 
Applied Concepts in Microcomputer 
Graphics, 33 



AREASEARCH, 146, 193, 199, 210, 

222, 228 
assembler 
Merlin, 11 

multiple source code files for, 24 
assembly language, 1 , 348 
activating sprites from, 143 
BASIC parameter passing and, 
145 

calling 80-column graphics 
routine from, 25 

changing BASIC character string 
from, 140 

direct text display from, 145 
directly reading joystick from, 143 
NEW command from, 3 
positioning sprites from, 143 
reading keyboard directly from, 
142 

tables for, 155 

using standard text screen RAM 
for, 139 

warm start from, 4 
attribute bytes, VDC, 381 
attribute memory, 15 

B 
background color, 1 
BACWARD CLICK, 210 
BAD CHOICE routine, 203 
BANK command, 6, 7 
BASBNK40 routine, 200, 201 
BASIC 7.0, 1 
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adding commands to, 26 
assembly language parameter 
passing in, 145 

changing to assembly language 
from, 140 

comma-defined parameters of, 8 
moving up, 20 
retrieving byte-sized line 
parameters from, 13 
retrieving word-sized line 
parameters from, 14 
tokenized, use of IESCPR vector 
with, 10 

use of undocumented ROM 
routines in, 18 
bASIC ROMS, BANK command to 

enter, 7 
BETWDBYT routine, 8 
BGLDA algorithm, 24 
binaries, 349 
binary data file, 127 
bit-mapped text, 34 
bits, conventions for, 347 
BKD button, 129, 135 
block operations, 16 
books, conventions for, 347 
boxes, 54, 55 
outlined and filled, 1 , 24 
performance testing on, 32 
Bresenham's generalized line 

drawing algorithm, 23 
BSOUT routine, 14, 15 
buttons, 129 
use of, 135 
bytes, conventions for, 347 



C-ASCII codes, 348 
converting screen poke codes 

from, 141 
CALL routine, 358 
calling structure diagrams, 35-46 
CASC2POK1 routine, 196, 207 
CASC2POKS routine, 141 
CATALOG command, 138 
cells 
inverting 40-column bit-mapped 

screen, 144 

inverting text screen, 144 
CHAR command, 147 
characters, 40-column bit-mapped 

screen drawing of, 140 
CHRGET routine, 8, 12, 55, 56 
CHRGOT routine, 12, 56, 66 
CIA, 348 

CLEAN UP routine, 203 
CLEAN UP THE LAB routine, 209, 

210 
CLEAR CLICK, 210, 225 
CLEAR COMMAND routine, 204 
clicking, 129, 156 
CLOSE THE FILE routine, 202 



CLR button, 129, 135 
CLRGR80 routine, 65 
CLRTX80 routine, 15, 64 
CMP instructions, 8 
code unfolding, 34 
colon, 53 
color 

checking range parameters of, 24 

control nibbles for fore- and and 
background, 15 

fore- and background, 1, 56, 59 

parameters for, 57 
color nibbles, 17 

comma-defined parameters, 8, 55 
COMMACRUZ routine, 8, 18, 55, 56, 

66 
command execution 

installing detour for, 52 

removing detour from, 52 

saving current vector for, 53 
COMMAND routine, 203 
commands 

adding 80-column graphics 
package, 27 

adding BASIC 7.0, 26 

using FNDCOMTXT to find tables 
of, 9 
Commodore 128 Internals, 347 
Commodore 128 Programmer's 

Reference Guide, 347 
Commodore 64/128 Graphics and 

Sound Programming, 2nd 
Edition, 347 

complex interface adapter, 348 
conditionals, 359 
CONFIGURE MEMORY, 210 
COUNT command, 9 
counter value, 63 
crunching 

installing detour for, 52 

pointing vector at, 53 

removing detour from, 52 

token, 11 
CURSDWN routine, 192, 195, 206, 

208, 209 
CURSLFT routine, 192, 194, 195, 

206, 208 

cursor movement, 195 
implementing of, 142 
using pseudo-mouse for, 155 

CURSRIT routine, 192, 194, 195, 

207, 208 

CURSUP routine, 192, 195, 196, 

206, 209 
CUSTOMIZE PLAY WINDOW, 215, 

228 



DATA statements, initialization 

through, 154 
data structures, sound and music 

lab, 150 



DCI pseudo-op, 1 1 , 27 
DEALKEY routine, 191, 192, 206 
DEALMOUSE routine, 155, 191, 193 
decimals, 349 
DELETE routine, 193, 208 
detours, 11 

installing and removing, 52 
DG80COLOR routine, 18 
direct mode only error, 59 
direction codes, 156 
DIRTAB table, 156 
disk drive 

determining source, 147 

problems with, 147 
disk status variable (DS), 147 
division, multi-byte, powers of 2, 14 
DLPNTR variable, 25 
DO, 359 

DO80COLOR routine, 55 
DOBRES routine, 34, 60, 62 
DOG80BOX routine, 18, 55 
DOG80DRAW routine, 18 
DOG80GOX routine, 54 
DOG80GRAPHIC routine, 18, 55 
DOG80SCAT routine, 18, 26, 28, 55, 

59 
DOG80XX routine, 25 
DOHORZ routine, 34, 60 
DOLFTPRT routine, 61, 62 
DOLINE routine, 59 
DORITPRT routine, 61, 62 
DOVERT routine, 34, 60 
DRAW A FRESH SCREEN, 211 
draw routine, G80DRAW, 25 
DRAW SIX WINDOWS, 212 
DRAWBMCHAR routine, 34, 140, 

193, 195, 196 
DRWSTRCHR routine, 195 
DRWSTRSEC routine, 191, 194 
DS variable, 147 



EAST table, 156 

EDIT COMMAND routine, 204 

editors, 154 

eighty-column graphics package 

(Part I), 1-126 
EL routine, 148 
END button, 129, 136 
END CLICK, 210 
entry bytes, 53 
ENVELOPE CLICK, 210, 215 
ENVELOPE window, 128, 129, 151 

recording with, 132 

use of, 133 

updating of, 212 
ER routine, 148 
erometer value, 63 
ERR$ routine, 148 
ERROR HANDLER, 148, 205, 235 
error messages, IERROR vector 
and, 9 
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event-driven programming, 152 
EXCLUSIVE OR operation, 13 



FAP exit value, 213-221 

FD(MD) array, 151 

FETCH A PARAMETER, 213, 

216-219, 233 
FETCH FILE NAME AND DEVICE 

NUMBER routine, 204 
FIGHOTSPOT routine, 191, 193 
FIGOFS4025 routine, 200, 201 
FIGPOINT routine, 16, 25, 59, 60, 

63,65 
file name string, 4 
filled boxes, 1, 24 
FILTER CLICK, 210, 219 
FILTER command, 129, 151 

use of, 134 
FINGER CURSOR, 127 

creation of, 151, 152 
FIRST help screen, 130 
FNDCOMTXT routine, 9, 1 1 , 12, 18, 
54 

undocumented ROM routines 
and, 19 
FNDTKNTXT routine, 10, 12, 18, 54 
FOR loop, 359 
foreground color, 1 
FORWARD CLICK, 210, 223 
FRAME CLICK, 210, 220 
FRAME command, 158 

recording with, 132 
frame counter, use of, 134 
FRETOP pointer, 144 
Fundamentals of Interactive 

Computer Graphics, 33, 34 
FWD button, 129, 135 



G80 Test Suite, 2 
G80Box command, 1 
G80Color command, 1 
G80DRAW routine, 2, 25, 55 
G80Graphic command, 2 
G80lnstall, 1, 2 
selected algorithms from, 52 
structure diagram for, 36 
G80Scat command, 2, 26 
G8BOXCHPS routine, 55, 56 
G8BOXDOIT routine, 55, 57 
G8BOXGTPS routine, 18, 55, 56 
G8COLCHPS routine, 24 
G8COLDOLT routine, 26 
G8COLGTPS routine, 18 
G8DLNDX variable, 25 
G8DLPTS variable, 25 
G8DRWDOIT routine, 58 
G8DRWDOLT variable, 25 
G8DRWGTPS routine, 18, 25 
G8DRWLST, 25 
G8GRFDOIT routine, 59 



G8GRFDOLT routine, 26 
G8GRFGTPS routine, 18 
G8XXXCHPS routine, 19, 25 
G8XXXDOLT routine, 25 
G8XXXGTPS routine, 25 
geometric figures, 33 
GET A FILE NAME, 223, 229 
GET READY routine, 203 
GETBYT routine, 8, 13, 14, 18, 56, 

66 
GETIN routine, 191 
GETTARGBYT routine, 16, 34, 62, 

65 
GETWDBYT routine, 18, 56 
global LA, 5 

GO button, 129, 131, 135 
GO CLICK, 210, 221 
GODOWN routine, 63, 64 
GORITE routine, 63, 64 
GOUP routine, 63, 64 
Grafix 80, 1 

comma-defined parameters of, 8 

loading, 1 

selected algorithms from, 52-66 

structure diagram for, 37-44 

subroutine line starts for, 48, 49 
graphics mode, 2, 54 

clearing screen of, 15 

exiting of, 2 

setting 80-column chip for, 15 

H 

HA() array, 149, 150 
HELP button, 135 

positioning sprite on, 153 
HELP CLICK, 210, 225 
HELP packer, 138 

algorithms for, 202 

sound and music lab, 127 

source codes for, 302 

structure diagram for, 164 

subroutine start lines for, 187 
HELP screen, 130 
hexadecimals, 349 
hi-byte, 348 
hi-nibble, 348 
hiding keys, 141, 155 
HLPAREAS table, 156 
HORIX routine, 58 
horizontal control lines, 142 
horizontal lines 

algorithms for drawing, 21 

classes of, 21 

drawing of, 60-66 

performance testing on, 30 

special codes for, 33 
HRBANDINVT, 144, 193, 200, 213, 

216, 228 
HRRECTINVT routine, 200 
HRROWSHI table, 156 
HRROWSLO table, 156 
human interface, 1-2, 127-138 



HUNB80TB table, 17 

I 

I/O block, 7 
IERROR, 9, 55, 56, 59 
IESCEX routine, 11, 55 
IESCEXDETOR routine, 11,18, 27, 

54 
IESCLK routine, 10, 11, 54 
IESCLKDETOR routine, 9, 10, 12, 

18, 53 
I ESCPR vector, 10, 11, 54 
IESCPRDETOR routine, 10, 12, 18, 

54 
IF.. .THEN loop, 360 
IIRQ routine, 142 
illegal quantity error, 55 
increments value, 63 
indexing, BASIC, 8 
INDFET routine, 139, 140, 192, 194 
INDSTA routine, 140, 193, 194 
INDTXT routine, 8, 55 
INITEDVARS routine, 191 
initialization, 67 
data statements and restores for, 
154 
INITIALIZE CURSOR, 210, 211 
INITIALIZE SOME VARIABLES, 210 
INITPNTLST command, 25, 58 
input buffer, 53 
input filtering, 155 
input/output routines, 5 
INSCRCHDTR routine, 18, 52 
INSERT routine, 194, 207 
INSEXECDTR routine, 18, 52, 53 
INSTALL, 18, 52, 142, 197 

source code for G80, 71-119 
installation, 1 

INSUNCRDTR routine, 18, 52, 53 
interpreter, 8 
COUNT routine and, 9 
using IESCEX vector to jump 
routines in, 1 1 
INVERT AN AREA, 213-234 
INVERTCURSOR routine, 155, 
191-194, 206 



JMPNEW routine, 3, 4, 52, 59 
joysticks, 127 

algorithms for, 197, 198 

moving and clicking around S/M 
lab with, 129 

reading assembly language 
directly from, 143 

translating data from, 156 
JSR call, 3, 4, 5, 12 
JUMP keyword, 358 
JUMP-TO-FRAME command, 151 



kernel routine 
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BANK command to enter, 7 

BSOUT, 14 

conventions for, 347 

INDSTA, 140 

INDFET, 139 

LOAD, 4 

SETBNK, 4 

SETLFS, 5 

SETNAM, 5 

SWAPPER, 15 
keyboards, reading assembly 
language directly from, 142 
KEYCHK routine, 141, 142 
keywords, 358 



LAB button, 130 
LAB EVENT loop, 153, 209-233 
LABAREAS routine, 146, 156 
LABINVREX table, 156 
LAST help screen, 130 
LET SOUND FINISH, 147, 214, 234 
line starts, subroutine, 47-50 
lines, 2 
Bresenham's generalized 
algorithm for drawing, 23 
drawing routines for, 34, 61 , 62 
horizontal, algorithms for drawing, 
21 

horizontal, performance testing 
on, 30 

random, performance testing on, 
31 

setting coordinates for, 58, 59 
slanted, Bresenham's generalized 
algorithm for drawing, 23 
vertical, algorithms for drawing, 
22 

vertical, performance testing on, 
29 
lo-byte, 348 
lo-nibble, 348 
LOAD AND INSTALL BINARY 

FILES, 211 
LOAD CLICK, 147, 210, 223 
LOAD command, 4, 205 
SETLFS routine and, 5 
LOD button, 129, 135, 136 
logical bank number, 4 
logical operations, 13 
look-up routine, IESCLK vector for, 

10 
loops, 359 

speeding up, 26 
low-memory routine 
CHRGET routine, 8 
CHRGOT, 12 
INDTXT, 8 
LSR instruction, 14 
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machine language, 349 



MAKE 40C SCREEN, 136, 157 

selected algorithms for, 203 

source codes for, 306 

structure diagram for, 165 

subroutine start lines for, 187 
MAKE S/M VARS, 136 

selected algorithms for, 202 

source codes for, 303 

structure diagram for, 164 

subroutine start lines for, 187 
masking, 61, 66 

two-stage, 13 
MAX-MEM pointer, 144 
MDLOMDHI table, 156 
memory banks 

loading data into, 144 

using INDFET to read from, 139 

using INDSTA to write to, 140 
memory configuration 

BANK command for, 6 

binary, hexadecimal, and decimal 
equivalents for, 7 

bits in a byte of, 6 

restoring, 52 

setting and saving, 52 
memory locations, 9 

conventions for, 348 
memory management unit, 349 
memory quadrant, 348 
Merlin-128 pseudo-ops, 11, 391 
miscellaneous terms, 348 
modes, sound and music lab avoid- 
ance of, 154 
modularity, 26 

sound and music lab, 154 
moving BASIC up to fit code be- 
neath it, 20 
multi-byte division by powers of 2, 14 
multiple source code files, 24 

N 

naming, 5 

NEW command, 3, 4, 52, 59 

NEXT help screen, 130 

NEXT routine, 148 

nibble transfer, 13 

nibbles 

color, 17 

color control, 15 

conventions for, 347 
no-command-found message, 54 
NORTH tables, 156 
note values, SID, 387 
numbers, conventions for, 349 



O-based, 348 
object code, 1 , 349 

loading, 52 
OPEN command, 4, 5 
OPEN THE FILE routine, 202 
optimization, 26 



range adjustment for, 24 
OPTNXTBYT routine, 56, 66 
OR operation, 13, 16, 389 
ORA command, 16 
OURCOMSTEXT routine, 9, 1 1 , 27 
OURIIRQ routine, 142, 143, 197 
OURKEYCHK routine, 142, 155, 

197 
OURLAST constant, 27 
outlined boxes, 1, 24 
OVERITE routine, 192, 193 



PACK 'EM IN routine, 202 
paint parameters, 56, 57 
parameter blocks, 155, 191 
parameter-checking routine, 19 
parameters, 55 

assembly language passing of, 
145 

comma-defined, 8 

fetching, 213 

retrieving BASIC line, 13, 14 
parsing, 8 

IESCLK vector and, 10 

set-up to view, 12 
PAUSE, 235 
performance testing, 29-31 , 67, 68, 

69 
pinhead pseudo-code, 357-359 
PIXELPOP routine, 16, 34, 65, 66 
pixels, 15, 16 

drawing horizontal lines with, 21 

drawing vertical lines with, 22 
PLAY CLICK, 210, 214 
PLAY command, 128, 132-135, 151 

customizing of, 215 
PLAY CURRENT SOUND, 214 
playback controls, sound and mu- 
sic lab, 158 
PLOTIT routine, 16, 25, 34, 59, 

60-65 
point list, 25 

POINTER command, 140 
points, 2 
poke codes, 382 
ports, 349 

PREVIOUS help screen, 130 
PRINT CLICK, 210, 231 
PRINT COMMAND routine, 205 
PRINTCHAR routine, 207 
processor 

changing speed of, 146 

conventions for, 350 
program listings, 70-126 

last minute adjustments to, 393 

sound and music lab, 236-345 
program notes, 18-32 

sound and music lab, 149-156 

undocumented ROM routines, 18 

use of outside resources for, 149 
PRT command, 129, 136 
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pseudo-code, 358 
pseudo-mouse, 129, 130, 142 349 

algorithms for, 198, 199 

implementing of, 142 

moving cursor with, 155 
pseudo-op 

DCI, 1 1 , 27 

Merlin-128, 391 

PUT, 24 
PUTTARGBYT routine, 16, 34, 62, 
65, 66 



quadrant, 348 

setting RAM bank of, 146 
question mark, 53 
QUIT COMMAND routine, 205 
quotation marks, 53 



RAM bank, setting, 146 

random lines, performance testing 

on, 31 
range adjustment to optimized 

testing, 24 
READY prompt, 136 
RECORD A SOUND FRAME, 

214-221 
recording concepts, 132 
registers 

BASIC variable, 145 

loading offset values into, 8 

parameters for, 5 

saving and restoring, 52, 53 

setting, 4 

status, 145 
REPEAT, 359 
REPEAT UNTIL loop, 359 
RESET SOUND VARIABLES, 21 1 , 

224 
RESTORE statement, initialization 

through, 154 
RESUME routine, 148 
RETURN keyword, 358 
RMVCRCHDTR routine, 18, 52, 53 
RMVEXECDTR routine, 18, 53 
RMVEXEDTR routine, 52 
RMVUNCRDTR routine, 18, 52, 53 
ROR instruction, 14 
ROTATE command, 13 
ROWS4025HI table, 156 
ROWS4025LO table, 156 
RREG command, 145, 146 
RUN IT routine, 203 



S/M ASM 1, 140 
selected algorithms for, 191 
source code for, 237-300 
structure diagram for,, 160 
subroutine start lines for, 186 

S/M ASM 2, 139 



selected algorithms for, 197 

structure diagram for, 163 

subroutine start lines for, 186 
SAV button, 132, 136 
SAVE CLICK, 210 
SAVE command, 4 
SAVE COMMAND routine, 204 
SAVE IT ALL routine, 202 
screen clearing, 14 

80-column graphics, 15 

graphics mode, 15 
screen mode, switching, 15 
screen poke codes, converting C- 

ASCII codes to, 141 
selector flag, 191 
SEND AN ERROR MESSAGE, 215, 

225, 227, 230, 233, 235 
sequential data file, 127 
SET CURRENT ENVELOPE, 216, 

217, 227 
SET CURRENT FILTER, 220, 228 
SET UP THE LAB routine, 209 
SETBNK routine, 4 
SETLFS routine, 4, 5 
SETMOSHN routine, 143, 198 
SETNAM routine, 4-6 
SETPTR routine, 207, 208 
SETSTRGZ routine, 140, 191, 192 
shadow registers, 371-374 
SHIFT command, 13 
SHO button, 129, 135 
SHOW FRAME, 210, 221 , 223, 229, 

234 
SID note values, 387 
SID registers, 385 
slanted lines, special codes for, 33 
SND button, 135 
SOFTRESET routine, 4, 52, 59 
SOUND command, 128 
sound and music lab (Part II), 
127-345 

algorithm for recording in, 151 

determining source drive for, 147 

drawing screen for, 21 1 

editing in, 191 

editors for, 154 

error handler for, 148 

HA() array in, 149, 150 

HELP packer for, 127 

human interface for, 127-138 

initializing cursor for, 21 1 

input filtering for, 155 

lab event loop in, 153 

list of variables for, 320 

loading and installing binary files 
for, 21 1 

making more visuals in, 158 

mode avoidance in, 154 

modularity in, 154 

moving and clicking around in, 
129 

PLAY window for, 132 



program listings for, 236-345 
program notes for, 149-156 
pseudo-mouse cursor movement 
for, 155 

recording concepts for, 132 
selected algorithms for, 190-235 
setting variables for, 21 1 
setup for, 127 

sophisticated playback controls 
for, 158 

SOUND window for, 130, 131 
source code for, 321-345 
sprite finger cursor for, 151, 152 
startup screen for, 128 
structure diagrams for, 159-184 
subroutine line starts, 185-189 
subroutines in, 154 
system interface for, 139-148 
use of frame counter with, 134 
using buttons with, 135 
using ENVELOPE window for, 
133 
using FILTER window for, 134 
using HELP screens for, 130 
using MAKE 40C SCREENS 
utility with, 136 

using MAKE S/M VARS with, 136 
using S/M HELP PACKER with, 
138 

using TEMPO window for, 134 
using Text Dumps program with, 
137 
using VOLUME window for, 1 33 
VARS, 127 
wrapup for, 136 

SOUND CLICK, 210, 213 

SOUND command, 130-135, 151 
updating of, 212 

SOUNDTIME memory location, 147 

source code, 349 
40C EDIT, 308-318 
INSTALL G80, 71-119 
MAKE 40C SCREEN, 306 
MAKE S/M VARS, 303 
sound and music lab, 321-345 
S/M ASM 1,237-300 
S/M HELP PACKER, 302 
Test Suite for G80, 119-123 
Test Suite G40, 123-126 

sprites 
algorithms for, 198 
alternate text screens and, 144 
assembly language activation of, 
143 

assembly language positioning of, 
143 
creating finger cursor for, 151, 152 
HELP screen positioning of, 153 
motion data tables for, 156 
shadow registers for, 371-374 

SRE return click, 215 

status flags, setting of, 8 
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status register, 145 
STORPNTLST routine, 25, 58 
STORSTUF routine, 155, 191 
stretching, 33-35 

sound and music lab, 157-158 
strings, displaying variable-length, 

156 
STRNGRECTEDIT, 154, 155, 191, 

214, 225, 233 
structure diagrams 

40C EDIT, 166 

calling, 35-46, 350-356 

G40 Test Suite, 46 

G80 Test Suite, 45 

G80INSTALL, 36 

Grafix 80, 37-44 

HELP packer, 164 

MAKE 40C SCREEN, 165 

MAKE S/M VARS, 164 

S/M ASM 1, 160 

S/M ASM 2, 163 

sound and music lab, 159-184, 
167-184 
subroutine line starts, 47-50 

40C EDIT, 188 

G40 Test Suite, 50 

G80 Test Suite, 49 

Grafix 80, 48, 49 

HELP packer, 187 

MAKE 40C SCREEN, 187 

MAKE S/M VARS, 187 

S/M ASM 1, 186 

S/M ASM 2, 186 

sound and music lab, 154, 
185-189 
SWAPPER routine, 15, 64 
switching screen mode, 15 
syntax error, 55 
SYS command, 145 
system interface, 3-17, 139-148, 

360-366 
systems globals, 7 



tables, 26 
assembly language, 155 
OURCOMSTEXT, 27 

TEMPO CLICK, 210, 218 

TEMPO command, 129, 132, 134, 
151 

test suite, 2, 29 
selected algoritms for G80, 67-69 
source code for G40, 123-126, 
source code for G80, 119-123 
structure diagram for G40, 46 
structure diagram for G80, 45 
subroutine line starts for G40, 50 
subroutine line starts for G80, 49 

text display, direct assembly 
language, 145 

Text Dumps program, 137, 203 

text mode, setting 80-column chip 



for, 15 
texp positioning, using CHAR 

command for, 147 
text screen 
converting row numbers in, 156 
dealing with sprites in, 144 
inverting cells in, 144 
setting starting address for, 146 
text starting address, setting of, 3, 

52 
TKNBOX command, 27 
TKNCOLOR command, 27 
TKNDRAW command, 27 
TKNGRAPHIC command, 27 
TKNSCAT command, 27 
token crunching routine, 9 
tokens, 53 
crunching new BASIC commands 
with, 11 
selector, 54 

un-crunching, 10, 11, 54 
TP$ TRAILING BLANKS, 225, 231, 

232 
TRAP routine, 148 
TSTCODZ table, 155 
two-stage masking, 13 
TX40BANDINVT, 144, 200, 226 
TXTPTR routine, 8, 12 
TxtTab pointer, 3 
TYPE ONE SOUND, 213-231, 234 
TYPE THREE SOUND, 234 

U 

un-crunching, 10-11 
installing detour for, 52 
pointing vector at, 53 
removing detour from, 52 
undocumented ROM routines, 54 
finding, 19 
FNDCOMTXT, 12 
FNDTKNTXT, 12 
GETBYT, 13 
GETDBYT, 14 

instructions for Graphix 80 proj- 
ect, 20 

program notes on, 18 
UNINSTALL routine, 18, 52, 59, 142, 

197, 210 
UPDATE AN ENVELOPE, 212, 217, 

227 
UPDATE FILTER WINDOW, 220, 

228 
UPDATE FRAME COUNTER, 221, 

222, 227-229, 234 
UPDATE MESSAGE WINDOW, 

213-235 
UPDATE PLAY WINDOW, 227 
UPDATE SCREEN, 211, 224, 225 
UPDATE SOUND WINDOW, 212, 

213, 227 
UPDATE TEMPO WINDOW, 228 
UPDATE VOLUME WINDOW, 228 



variable-length strings, display of, 

156 
variables 

DLPNTR, 25 

G8DLNDX, 25 

G8DLPTS, 25 

sound and music lab, 150, 320 
VDC register, 375-378 

attribute bytes for, 381 

block operations with, 16 

clearing graphics mode screen 
with, 15 

color control nibbles with, 15 

conventions for, 350 

pixel operations with, 15 

screen colors for, 380 
VDCMEMPEEK routine, 34, 66 
VDCMEMPOKE routine, 34, 61 , 66 
VDCREGPOKE routine, 34, 65, 66 
vectors 

crunching, 52 

lERROR, 9 

IESCEX, 11 

IESCLK, 10 

IESCPR, 10 

un-crunching, 53 
VERTI routine, 58 
vertical control lines, 142 
vertical lines 

algorithms for drawing, 22 

drawing, 60-66 

performance testing on, 29 

special codes for, 33 
VIC registers, 367-369 

conventions for, 350 

changing processor speed with, 
146 

setting RAM bank and quadrant 
with, 146 

screen colors for, 371 

setting screen starting address 
with, 146 
video bank, setting RAM bank of, 

146 
visuals, 158 

VOLUME command, 129-134, 151 
VOLUME CLICK, 210, 217 



W 

WAIT UNTIL loop, 359 
warm start, 4, 52, 59 
WEST table, 156 
WHERTAB table, 155 
WHILE, 359 
windows, 129 

drawing of, 212 

updating, 213 
word count, 16 
words, conventions for, 347 
WRITE THE VALUES routine, 202 
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Advanced Commodore 128 
Graphics and Sound Programming 

If you are intrigued with the possibilities of the programs included in Advanced Commodore 128 
Graphics and Sound Programming (TAB Book No. 2630), you should definitely consider having 
the disks containing the software applications. This software is guaranteed free of manufacturer's 
defects. (If you have any problems, return the disks within 30 days, and we'll send you new ones.) 
Not only will you save the time and effort of typing the programs, the disks eliminate the possibility 
of errors that can prevent the programs from functioning. Interested? 

Available on disks for Commodore 128 microcomputer at $29.95 for each set of disks plus 
$1.00 each shipping and handling. 



I'm interested. Send me: 



disk for (6424S) 
TAB BOOKS catalog 



Check/Money Order enclosed for $. 



plus $1 .00 shipping and handling for each disk ordered. 
□ VISA □ MasterCard □ American Express 

Signature . 

Account No. . Expires 

Name 



Address 



City . State Zip 

Mail To: TAB BOOKS Inc. 

Blue Ridge Summit, PA 17294-0850 

OR CALL TOLL-FREE TODAY: 1-800-233-1128 
In Pennsylvania and Alaska call direct: 717-794-2191. 

"Prices subject to change without notice. 

Pa. residents add 6% sales tax. 

New York state residents must add state and local taxes where applicable. 

Orders outside U.S. must be prepaid with international money orders in U.S. dollars. 

TAB 2630 
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